Active Hedings without ActiveWindow cmd

[Paul Sansom]

Hi

Is there away to display all headings without using Active Window.
The following code works fine but i don't want to open and activate each sheet just to turn on Headings, as this triggers other objects like WS_Actvate etc.

            For Each ws In Sheets
                ws.Visible = xlSheetVisible
                ws.Activate
                With ActiveWindow
                    .DisplayHeadings = True
                    ' more
                End With
            Next ws

Cheers Paul

 

[sykes]

Couldn't you just put that command into each sheet's _Activate event, so that it only fires when the sheet's actually opened?

Private Sub Worksheet_Activate()
ActiveWindow.DisplayHeadings = True
End Sub

 

[Paul Sansom]

Thanks for suggestion.
the above is within an if as not all sheets have headings n in every state of view...
Plus i still have the problem of how to switch off again when sheet is not active

 

[sykes]

Plus i still have the problem of how to switch off again when sheet is not active

Just use the sheet's _deactivate event...

Private Sub Worksheet_Deactivate()
ActiveWindow.DisplayHeadings = False
End Sub