Private Sub open geht nicht gut

Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen.
Bis dahin alles i.O.


Private Sub Workbook_Open()
On Error Resume Next
Application.Visible = False
Application.ScreenUpdating = False
Willkommen.Show
In der Userform (Willkommen) habe ich unter anderem auch die Commandbuttons Aktiven und Passien  _
etc.
Wenn ich jetzt auf Commadbutton Aktiven drücke kommt nicht das Blatt Aktiven sondern je nach  _
dem wie ich die Datei gespeichert habe in diesem Blatt wo es gerade beim Speichern aktiv war.
Speicher ich es z.b. mit dem aktiven Blatt "Aktiven" und starte die Datei und drücke danach  _
Passiven kommt das Blatt Aktiven.


Private Sub CommandButton3_Click()
meClose = True
Unload Me
Application.Visible = True
Application.ScreenUpdating = True
On Error Resume Next
Worksheets("Aktiven").Select
End Sub




Private Sub CommandButton4_Click()
meClose = True
Unload Me
Application.Visible = True
Application.ScreenUpdating = True
On Error Resume Next
Worksheets("Passiven").Select
End Sub


kann mir jemand sagen was ich falsch mache?

Gruß

Lukas