Runtime error 91 : Besoin d'aide.

Bonjour à tous,

J'ai un petit soucis avec une macro que je viens de simplifier.
A l'exécution de celle-ci j'ai ce message qui apparait :

RUNTIME ERROR 91: Object variable or With Block variable not set

Voici mon code :

Private Sub Workbook_Open()
Dim ws As Worksheets

ws(2).Visible = True 'Cette ligne se met en défaut à l'erreur
ws(1).Visible = xlVeryHidden

    For i = 3 To Sheets.Count
        With ws(i)
            .Visible = False
        End With
    Next

    For i = 1 To Sheets.Count
        With ws(i)
            .Protect Password:="123PA"
        End With
    Next

End Sub

Est-ce que quelqu'un sait à quoi il peut être dû ?

Merci d'avance.