Hide Row/Column Headers on Each Sheet

[throtmorton]

Hi,

I'm trying to make a simple macro to let the user hide row and column headers throughout the active workbook.

Here's what I came up with, and I've tried variations on the theme, but it only does the active sheet and won't cycle through to the others. Searched to no avail.

Any help appreciated.

Paul

Public Sub RowColumnHeaders()
Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
    ActiveWindow.DisplayHeadings = False
    
    Next ws

End Sub

 

[throtmorton]

Works like a charm!

Thank you for the help.

 

[Boller]

Boller,

Thanks, but I seem to run into trouble with that code. If I use it in "This Workbook," I get the message "400." If I place it in a Module, I get Runtime 1004 error, and "Method 'Select' of 'Sheets' Failed"

Paul

Probably because you have some hidden sheets.

 

[throtmorton]

Ahh yes, indeed I do. Thanks.