How to hide and unhide sheets with a password

I have the below formula which uses a password to allow worksheets to be hidden and unhidden. I cant seem to get it to hide and unhide more than one sheet. It will only hide "SES MAIN". I have typed the names exactly as on the work sheets. Am I missing something?

Private Sub hide_Click()

Dim myPassword As String

myPassword = "xxxxx" 

Password = InputBox("Enter Password")
If Password = "" Then Exit Sub 

' Incorrect password
If Password <> myPassword Then
     MsgBox Title:="Warning", prompt:="Incorrect Password"
     Exit Sub
End If

On Error Resume Next

' Correct password
     Worksheets("JES Software").Visible = xlSheetVeryHidden
     Worksheets("SES MAIN").Visible = xlSheetVeryHidden

End Sub