Sub Workbook_Open()

Sub Workbook_Open() dierekt auf das Blatt KALENDER zu springen ?
Ich bekomme das einfach nichthin.

Sub Workbook_Open()
'hier werden die Tabellen versteckt
Sheets("Passwort").Visible = 2
Sheets("Benutzer_01").Visible = 2
'Die Passwortabfrage sollte auf dem Blatt KALENDER erfolgen
'Sheets("Kalender").Range("A3").Select
'Die Passwörter sind auf diesem Blatt, Sheets("Passwort").
Do
'Passwort: abfragen oder abbrechen
Select Case InputBox("Bitte Password eingeben")
Case ""
Exit 

Sub
' Passwortabfrage abbrechen
'Administrator
Case Sheets("Passwort").Range("C2").Value
Sheets("Passwort").Visible = -1
Sheets("Benutzer_01").Visible = -1
Exit Do
'Benutzer_01 Zugriff auf Blatt ……
Case Sheets("Passwort").Range("C3").Value
Sheets("'Benutzer_01").Visible = -1
Sheets("'Benutzer_01").Select
Exit Do
Case Else
End Select
MsgBox ("Passoword ist falsch")
Loop
End Sub



Kann mir bitte jemand helfen ?

Mit freundlichen Grüßen

Manfred