Hilfe ! Warum wird die Auto_Open ...

Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Eingang").Select
Range("A1").Select
Application.Calculation = xlCalculationManual
'--------- jetzt wird erst gelöscht --------------------
Sheets("Laufende").Select
Range("c3").Select
ActiveSheet.Unprotect (getStrPasswort)
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row      '4 ist die Zeile anfängt, Rows.Count,3
'  Spalte geprüft wie weit belegt ist
Cells(i, 2) = Delete                                 'hier erst löschen
Next i
Dim jdate
Dim Verzeichnis As String
Dim myFSO As Object, myDrv As Object, strFS As String
Dim zuhr
jdate = Format(Now, "dd.mm.yyyy hh:mm")
zuhr = Format(Now, "hh:mm")
Password:=getStrPasswort                                      'schützen
For i = 4 To Tabelle1.[ah22].End(xlUp).Row
Tabelle71.ComboBox1.AddItem Tabelle1.Cells(i, 34)
Next
Tabelle71.ComboBox1.ListIndex = -1            'hier Combobox einlesen
For i = 4 To Tabelle1.[ah22].End(xlUp).Row
Tabelle711.ComboBox1.AddItem Tabelle1.Cells(i, 34)
Next
Tabelle711.ComboBox1.ListIndex = -1   'hier Combobox einlesen
Sheets("Laufende").Select
Range("c3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:=getStrPasswort                                      'schützen
Sheets("Eingang").Select
Range("A1").Select
Application.Calculation = xlCalculationAutomatic
UFEingang.Show
Application.ScreenUpdating = True
End Sub