Defekten Verzeichnis- bzw. Dateilink via Makro (Excel) markieren

Option Explicit
Option Compare Text

Sub HyperlinksTesten()
    Dim HyperL As Hyperlink, Addresse As String, rng As Range, fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")  

    For Each HyperL In ActiveSheet.Hyperlinks
        If Not HyperL.Address Like "*\*" Then  
            Addresse = ActiveWorkbook.Path & "\" & HyperL.Address  
        Else
            Addresse = HyperL.Address
        End If
        If not fso.FolderExists(Addresse) and Not fso.FileExists(Addresse) Then
            With HyperL
                Set rng = HyperL.Range
                .Range.Value = "ERROR: " & Addresse  
                .Delete
                rng.Font.ColorIndex = 3
            End With
        End If
    Next
    set fso = Nothing
End Sub

....
oFSO= CreateObject("Scripting.FileSystemObject")  

...  If Not oFSO.FolderExists(Addresse) and Not oFSO.FileExists(Addresse) then 
...