I'm writing a macro to change the passwords on some of the spreadsheets
in a workbook. For now, the ones with "Monthly" in the sheet name. The
code brings up a userform which asks for the old password, then for the
new password to be entered twice. The program compares the 2 entries to
verify, then is supposed to change all the passwords for the "monthly"
sheets. It works fine finding only the "monthly" sheets, then hangs on
the first sheet with the old password line highlighted and an error
message that the old password is incorrect. When I put the cursor over
the old password, variable sPWORD1, the correct old password is shown.

For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "*Monthly" Then
ActiveSheet.Unprotect Password:=sPWORD1 <---- Password not
correct
ActiveSheet.Protect Password:=sPWORD2
End If

Next

Any ideas on what I'm missing?

Thanks.