Inconsistent macro behavior

Can anyone tell me why this macro turns on the gridline display on some
worksheets, but not others, in the workbook? It's supposed to show all
sheets, unprotect all sheets, and turn on gridlines on all sheets.

Sub AllSheetsUnhideUnProtectWGrid()
'for all sheets in currently active workbook, assigned to button
'Password
Dim WkSht As Worksheet
Dim PWORD As String
PWORD = "dave"
Application.ScreenUpdating = False

For Each WkSht In ActiveWorkbook.Worksheets
If Not WkSht.Visible Then
WkSht.Visible = True
End If

WkSht.Unprotect Password:=PWORD
ActiveWindow.DisplayGridlines = True
Next WkSht

Application.ScreenUpdating = True

End Sub

As always, thanks in advance!

Sub AllSheetsUnhideUnProtectWGrid()
'for all sheets in currently active workbook, assigned to button
'Password
Dim WkSht As Worksheet
Dim PWORD As String
PWORD = "dave"
Application.ScreenUpdating = False

For Each WkSht In ActiveWorkbook.Worksheets
If Not WkSht.Visible Then
WkSht.Visible = True
End If
Wksht.Activate
WkSht.Unprotect Password:=PWORD
ActiveWindow.DisplayGridlines = True
Next WkSht

Application.ScreenUpdating = True

End Sub

--
Regards,
Tom Ogilvy


"davegb" <[email protected]> wrote in message
news:[email protected]...
> Can anyone tell me why this macro turns on the gridline display on some
> worksheets, but not others, in the workbook? It's supposed to show all
> sheets, unprotect all sheets, and turn on gridlines on all sheets.
>
> Sub AllSheetsUnhideUnProtectWGrid()
> 'for all sheets in currently active workbook, assigned to button
> 'Password
> Dim WkSht As Worksheet
> Dim PWORD As String
> PWORD = "dave"
> Application.ScreenUpdating = False
>
> For Each WkSht In ActiveWorkbook.Worksheets
> If Not WkSht.Visible Then
> WkSht.Visible = True
> End If
>
> WkSht.Unprotect Password:=PWORD
> ActiveWindow.DisplayGridlines = True
> Next WkSht
>
> Application.ScreenUpdating = True
>
> End Sub
>
> As always, thanks in advance!
>

Thanks Tom!

Tom Ogilvy wrote:
> Sub AllSheetsUnhideUnProtectWGrid()
> 'for all sheets in currently active workbook, assigned to button
> 'Password
> Dim WkSht As Worksheet
> Dim PWORD As String
> PWORD = "dave"
> Application.ScreenUpdating = False
>
> For Each WkSht In ActiveWorkbook.Worksheets
> If Not WkSht.Visible Then
> WkSht.Visible = True
> End If
> Wksht.Activate
> WkSht.Unprotect Password:=PWORD
> ActiveWindow.DisplayGridlines = True
> Next WkSht
>
> Application.ScreenUpdating = True
>
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "davegb" <[email protected]> wrote in message
> news:[email protected]...
> > Can anyone tell me why this macro turns on the gridline display on some
> > worksheets, but not others, in the workbook? It's supposed to show all
> > sheets, unprotect all sheets, and turn on gridlines on all sheets.
> >
> > Sub AllSheetsUnhideUnProtectWGrid()
> > 'for all sheets in currently active workbook, assigned to button
> > 'Password
> > Dim WkSht As Worksheet
> > Dim PWORD As String
> > PWORD = "dave"
> > Application.ScreenUpdating = False
> >
> > For Each WkSht In ActiveWorkbook.Worksheets
> > If Not WkSht.Visible Then
> > WkSht.Visible = True
> > End If
> >
> > WkSht.Unprotect Password:=PWORD
> > ActiveWindow.DisplayGridlines = True
> > Next WkSht
> >
> > Application.ScreenUpdating = True
> >
> > End Sub
> >
> > As always, thanks in advance!
> >