Troubleshoot Macro to Unprotect Sheets [SOLVED]

[J G]

The code below was written to unprotect all sheets however it stops after the second tab. If you've read my early post, I tried updating it in a similar way however it still failed. What am I doing wrong?

Sub UnProtectSheets()
Dim wsheet As Worksheet
For Each wsheet In Worksheets
wsheet.Select
ActiveSheet.Unprotect Password:="ABC"
Next wsheet
End Sub

 

[J G]

Nevermind, got it to work

Sub UnProtectSheets()
Dim wsheet As Worksheet
For Each wsheet In Worksheets

wsheet.Unprotect Password:="ABC"
Next wsheet
End Sub