サンプルマクロは、ブック内に設定されているハイパーリンクの情報をメッセージボックスで表示します。
Sub Sample()
Dim mySht As Worksheet
Dim i As Integer
Dim myCnt As Integer, myTotalCnt As Integer
Dim myStr As String
For Each mySht In Worksheets
With mySht
myCnt = .Hyperlinks.Count
If myCnt > 0 Then
For i = 1 To myCnt
myStr = myStr & vbCrLf & "シート：" _
& .Hyperlinks(i).Parent.Parent.Name _
& "，セル：" & .Hyperlinks(i).Parent.Address _
& "，文字列：" & .Hyperlinks(i).Parent.Text _
& "，リンク先：" & .Hyperlinks(i).Address
Next
End If
End With
myTotalCnt = myTotalCnt + myCnt
Next
If myTotalCnt = 0 Then
MsgBox "ハイパーリンクは設定されていません。"
Else
myStr = Mid(myStr, 3)
MsgBox myStr
End If
End Sub
