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

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

--
Regards,
Tom Ogilvy


"Sandy" wrote:

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

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

--
Regards,

Sebation.G
"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

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


On May 24, 2:36 pm, "Sandy" wrote:
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