Fehler ausgeblendete Arbeitsmappe

Private Sub Workbook_Open()
Dim sPath As String
Dim sFile As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
sPath = ThisWorkbook.Path & "\"  ' Verzeichnis auswählen
sFile = "Data.xlsx"                   ' Arbeitsmappe öffnen
Workbooks.Open sPath & sFile              ' Datei öffnen wenn vorhanden
ActiveWindow.Visible = False
Workbooks("Tag_Eigenschaften.xlsm").Activate
ActiveWindow.Visible = True
Sheets("Menu").Select
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
Windows("Data.xlsx").Visible = True 'ausgeblendete Arbeitsmappe einblenden
ActiveWorkbook.Close savechanges:=True 'speichern und schliessen
ThisWorkbook("Tag_Eigenschaften.xlsm").Close savechanges:=True 'Diese Arbeitsmappe speichern  _
und schliessen
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Sub