Sub Datei_vorhanden()
Dim Fso, DateiName
Set Fso = CreateObject("Scripting.FileSystemObject")
DateiName = "C:\" ' Hier den Pfad deiner Datei auf die der Verweis geändert werden soll
If Fso.FileExists(DateiName) Then
Workbooks.Open DateiName
' Hier Verweisänderungsmakro
Else
Exit Sub
End If
End Sub
Gruß
Chris