Hide Row and Column Headings

[Sandy]

The following hides the Row and Column Headings for the activesheet. How can
it be adjusted to apply to the whole workbook

Sub HideRowAndColHeadings()
Windows("TestBook.xls").DisplayHeadings = False
End Sub

Thanks Sandy

 

[Guest]

Sub HideRowAndColHeadings()
Dim sh as Worksheet, sh1 as Worksheet
Application.ScreenUpdating = False
set sh1 = Activesheet
for each sh in Workbooks("TestBook.xls").Worksheets
sh.Activate
Windows("TestBook.xls").DisplayHeadings = False
Next
Application.ScreenUpdating = True
sh1.Activate
End Sub

 

[Sebation.G]

try:
put this code under thisworkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Windows("book1.xlsx").DisplayHeadings = False
End Sub

 

[paul.robinson]

Hi
In the ThisWorkBook code module put this

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Screenupdating = False
HideRowAndColHeadings
End Sub

bit oblique, but it does the job eventually!
Paul