macro to remove/put row and column headers on each sheet

[ankita.sethi]

Hi,
I am trying to create a macro which removes row and column header on each sheet of the workbook.

This is the code I tried:

Sub Remove_RowHeaders()
'removes row and column heading from each of the sheet

For Each Worksheet In Worksheets
ActiveWindow.DisplayHeadings = False
Next Worksheet

End Sub

However, since it is "activeWindow", it operates only on the active sheet and not on all. Can anyone please tell me how to modify this so that it works??

 

[VoG]

This is one of the rare cases where you need to activate or select. Try

Sub Remove_RowHeaders()
'removes row and column heading from each of the sheet
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ActiveWindow.DisplayHeadings = False
Next ws
End Sub

 

[ankita.sethi]

thanks a lot!
IT works great!