Protect sheets with macro

[kanadaaa]

Hi, I was looking for a macro code that protects all the worksheets on the active workbook and got to the following code:

Sub ProtectAll()
    Dim wSheet As Worksheet
    Dim Pwd As String
    Pwd = InputBox("Input password to protect all sheets", "Password")
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True
    Next wSheet
End Sub

This works well, but I want one worksheet to be excluded from this macro.
My naive attempt is:

Sub ProtectAll()
    Dim wSheet As Worksheet
    Dim Pwd As String
    Pwd = InputBox("Input password to protect all sheets", "Password")
    For Each wSheet In Worksheets
        If wSheet.Name = "Rates" Then
        'Do Nothing
        Else
        wSheet.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True
      Next wSheet
      End If
End Sub

This returns "Compile error: Next without for".
Do you have any idea what is the problem? Thank you.

 

[CsJHUN]

Hi, missing an "end if"

       Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox("Input password to protect all sheets", "Password")
For Each wSheet In Worksheets
If wSheet.Name = "Rates" Then
'Do Nothing
Else
wSheet.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True
End If   '<-----------------------------------
Next wSheet
End Sub

 

[kanadaaa]

Hi, missing an "end if"

Sorry I noticed it and edited #1 before your reply.
But unfortunately, the behaviour didn't change.

 

[kanadaaa]

Sorry again, it seems like I had the End If row in a wrong place. Thank you ?