Hallo, habe folgendes Makro geschrieben
Es springt sofort zu call und öffnet das erste Arbeitsblatt
Private Sub Auto_Open()
Sheets("Blatt1").Visible = True
Sheets("Blatt1").Select
Application.DisplayFullScreen = True
Application.Wait (Now + TimeValue("0:00:05"))
Call Beginn
End Sub
Viele Grüße und Danke im voraus