Warum VBA-Fehler????

Private Sub Workbook_Open() eine Fehlermeldung beim öffnen der Datei?
Option Explicit

Private Sub Workbook_Open()
'Tabellenname und Passwort anpassen!
With Sheets("Artikel --> Lager")
.Unprotect Password:="1"
.Protect Password:="1", UserInterfaceOnly:=True
End With
End Sub



Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$T" & Range("A65536").End(xlUp).Row
End Sub



Private Sub Workbook_Open()
With Sheets("Auswahl")
.Select
.Range("B23").Select
End With
End Sub


Hab leider noch sehr wenig Ahnung in VBA.

Gruß aus Berlin

Jean-Pierre