Call the run Zoom75 subroutine when you open the file and run the Zoom100
subroutine when you close it.
Sub Zoom75()
Dim CurrWS As Worksheet
Dim WS As Worksheet
Set CurrWS = ActiveSheet
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Activate
ActiveWindow.Zoom = 75
Next
CurrWS.Activate
Application.ScreenUpdating = False
End Sub
Sub Zoom100()
Dim CurrWS As Worksheet
Dim WS As Worksheet
Set CurrWS = ActiveSheet
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Activate
ActiveWindow.Zoom = 100
Next
CurrWS.Activate
Application.ScreenUpdating = False
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.