Makro läuft nicht beim Starten

Sub Auto_Open()
Application.ScreenUpdating = False
If Zeit.Visible = False Then 'Wenn Userform nicht angezeigt wird:
'

Function zur Auswahl der nächsten logischen Eingabezelle
NextCell(Worksheets("Dienstplan")).Select
'Bildlauf wird ausgeführt, so dass die Eingabezeile vernünftig
'am Bildschirm sichtbar ist.
ActiveWindow.ScrollRow = ActiveCell.Row - 2
If ActiveCell.Column = 22 Then ActiveWindow.ScrollColumn = 14
Zeit.Show 'Userform anzeigen.
AppActivate "Microsoft Excel" 'Tabellenblatt aktivieren.
Else 'Wenn Userform bereits angezeigt wird:
Unload Zeit 'Userform entfernen.
End If
Application.ScreenUpdating = True
End Sub


Gruß

Mike