Prüfen Datei vorhanden, offen wenn nicht öffnen

Function DataOffnen(sFile As String) As Boolean
'  sFile = "OFFD1.xlsm"
On Error Resume Next
DataOffnen = Not Workbooks(sFile) Is Nothing  'hier kommt die Fehlermeldung
End Function

Sub Verwaltung_Oeffnen()
Dim sPfad As String
Dim sFile As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
sPfad = ThisWorkbook.Path & "\"
sFile = "OFFD1.xlsm"
If Dir(sPfad & sFile) = "" Then           ' Prüfen ob Datei im gleichen Verzeichnis
MsgBox "Die Datei ist nicht vorhanden", vbCritical + vbOKOnly, "Datei nicht vorhanden  _
oder verschoben..."
ThisWorkbook.Close
End If
If Not DataOffnen(sPfad & sFile) Then
Workbooks.Open sPfad & sFile
ActiveWindow.Visible = False
Workbooks("Verwaltung.xlsm").Activate
ActiveWindow.Visible = True
Sheets("Eingabe").Activate
End If
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub