Auto_Open/Close Mods

[Phil Hageman]

The below subs execute when the workbook is
opened/closed. I need to add code to turn off row and
column headings in the Autpen, and to restore the
headings in the Auto_Close. If anything else could use
improvement, please suggest. Thanks, Phil

Option Explicit

Sub Autpen()
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayFullScreen = True
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ws.Select
Application.GoTo ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
End If
Next

Worksheets("Customer").Select
ActiveWindow.Zoom = 62
Worksheets("Financial").Select
ActiveWindow.Zoom = 62
Worksheets("Learning and Growth").Select
ActiveWindow.Zoom = 62
Worksheets("Internal Business Process").Select
ActiveWindow.Zoom = 62
Worksheets("Internal Business Process").Select
ActiveWindow.Zoom = 62


Worksheets("Scorecard").Select
ActiveWindow.Zoom = 62
ThisWorkbook.Colors(7) = RGB(255, 124, 128)

Application.AutoPercentEntry = True
Application.ScreenUpdating = True

End Sub

Sub Auto_Close()
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[Tom Ogilvy]

Turn on the macro recorder and perform the task manually. Then you will see
the code.

 

[Don Guillett]

ActiveWindow.DisplayHeadings = False or true