I am trying to write some code to protect all of the selected sheets. I
kept getting an application error in the code below until I added the
objSheet.Select line prior to the .Protect line. Why does it not work
unless I select the sheet first?

bAllOK = True
For Each objSheet In ActiveWindow.SelectedSheets
If Not bSheetIsProtected(objSheet) Then
objSheet.Select
objSheet.Protect Password:=strPW, Contents:=True
Else
strLocked = strLocked & Chr(10) & objSheet.Name
bAllOK = False
End If
Next objSheet