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