Protecting all but one worksheet macro not working

I have a workbook that has a copy macro in it. At the end of the macro, it protects all of the worksheets. But I need to have one worksheet remain unprotected. I have seen several options on this site, but I keep getting a run-time error 424. Here is the code that I have that works:

' protect worksheet
For Each sht In NewBook.Worksheets
sht.Protect Password:="secret"
Next



MsgBox "Copy Complete", vbOKOnly, "Copy Complete"
End Sub

I have tried using case select (my worksheet name is called "instructions" but same issue. Any help would be appreciated.

Thanks.

Hi John:

Thanks for the quick answer. It stopped the runtime error but now it protects the entire workbook. It just not not seem to be reading the unprotect code.

Shauna

Hi John - I downloaded your worksheet and sees that it works. Since I only sent you part of the code I am wondering if there is something else that is overwriting this. I will start a new macro again to see if this works. Thanks for all you help - it's really appreciated, especially the quick responses.

Shauna

Hi John:

Changed the code and it now works.