Need Code to Set Scaling Zoom in PageSetup in Auto_Open Sub

[Guest]

I have a user changing PageSetup scaling when opening this workbook/worksheets. Problem is, this in turn changes the print output for other users when they open the workbook – makes the print undersize for the page. To enforce a standard, I want to add code to change scaling in the workbook opening sequence (for PageSetup.Zoom) as follows

Worksheet Scalin
Scorecard 95
Customer 91
Financial 91
Learning and Growth 91
Internal Business Process 91

How would the following code be modified to accomplish this

Sub Auto_Open(
Dim ws As Workshee

Application.ScreenUpdating = False
Application.DisplayFullScreen = True

For Each ws In Worksheet
If ws.Visible = xlSheetVisible The
ws.Selec
Application.Goto ws.Range("A1"), True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.View = xlNormalVie
End I
Nex

Worksheets("Customer").Select 'Selects the Customer workshee
ActiveWindow.Zoom = 62
Worksheets("Financial").Select
ActiveWindow.Zoom = 62
Worksheets("Learning and Growth").Selec
ActiveWindow.Zoom = 6
Worksheets("Internal Business Process").Selec
ActiveWindow.Zoom = 6
Worksheets("Scorecard").Selec
ActiveWindow.Zoom = 6

ThisWorkbook.Colors(7) = RGB(255, 124, 128
Application.AutoPercentEntry = Tru
Application.ScreenUpdating = Tru

End Su

 

[JWolf]

ActiveSheet.PageSetup.zoom = 95,etc.

 

[JWolf]

After each activewindow.zoom statement.

 

[Guest]

Thank you very much for your time - this works exactly as needed. Appreciate it!