protect/unprotect grouped worksheets
 

Hi, I have these macro's below that protect/unprotect all worksheets in the
book. How do I get them to only work on the sheets I selected?

TIA

Todd


Sub ProtectAll()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:=""
Next ws
End Sub

Sub UnprotectAll()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect Password:=""
Next ws
End Sub