Sub tipp()
Dim HYP As Excel.Hyperlink
Sheet1.Activate
For Each HYP In Sheet1.Hyperlinks
    HYP.Range.Select
    MsgBox "Ich habe einen Hyperlink in Zelle " & HYP.Range.Address & "" & _
      "gefunden." & vbCrLf & _
           "Er verweist auf folgendes Ziel: " & HYP.Address
Next HYP
End Sub