Sub CheckHyperlinks()
    Dim h As Hyperlink
    Dim strActiveCell As String
 
    Dim objFso As Object
    Set objFso = CreateObject("Scripting.FileSystemObject")
 
    'In Arbeitsblatt 1 in diesem Beispiel
    For Each h In Worksheets(1).Hyperlinks
        If Not objFso.FileExists(h.Name) Then
            'existiert nicht
            ActiveCell.Interior.ColorIndex = 36
        Else
            Debug.Print h.Name
            'existiert
        End If
    Next
End Sub