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
 strActiveCell = ActiveCell.Address
 Range(strActiveCell).Activate.Interior.Color = vbRed
 Else
 Debug.Print h.Name
 'existiert
 End If
Next
End Sub