Macro to unprotect all sheets

[howard]

I have a macro below to unprotect all sheets, but ot all the sheets are being unprotected

 Sub UnProtect_Workbook()
 Dim sht As Worksheet, xcell As Range
    For Each sht In ActiveWorkbook.Sheets
           
        sht.Unprotect
    Next
End Sub

Kindly amend my code

 

[Kerryx]

 Sub UnProtect_Workbook()
 Dim sht As Worksheet, xcell As Range
    For Each sht In ActiveWorkbook.Sheets
           
        sht.Unprotect
    Next sht
End Sub

 

[howard]

Many thanks for the help