John,
Try something like:
Dim AnySheet As Worksheet
For Each AnySheet In ActiveWorkbook.Worksheets
ActiveWorkbook.Worksheets(AnySheet.Name) _
.Protect Password:="mypassword"
Next
HT
--
Case
-----------------------------------------------------------------------
Casey's Profile:
http://www.excelforum.com/member.php...nfo&userid=454
View this thread:
http://www.excelforum.com/showthread.php?threadid=56219