In the following Auto_Open Sub, I need to enter code that
sets ScrollArea for the following worksheets:
"Scorecard" B1:BA45
"Financial" B1:BA96
"L&G" B1:BA96
"Process" B1:BA96
"Metrics: A1:A33

Sub Auto_Open()
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
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
End If
Next

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

ThisWorkbook.Colors(7) = RGB(255, 124, 128)
Application.AutoPercentEntry = True
Application.ScreenUpdating = True
End Sub