unprotect sheets

[BC@D]

How do I unprotect multiple sheets at once so I can do group changes?

[Paul B]

Here is one way,

Sub Unprotect_All_Sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect password:=""
Next ws
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"BC@D" <[email protected]> wrote in message
news:[email protected]...
> How do I unprotect multiple sheets at once so I can do group changes?