サンプルマクロは、ブック内に設定されているハイパーリンクの情報を
メッセージボックスで表示します。

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