Zoom Q

  • Thread starter Thread starter Seanie
  • Start date Start date
Put this in the Workbook_open event of the ThisWorkbook module

Sub zoomem()
Sheets.Select
With Sheet1
.Activate
ActiveWindow.Zoom = 75
.Select
End With
End Sub
 
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
 
Don / Rick thanks for your help. Just a Q on yours Rick, what would be
the point in Zooming to 100 when its closed, if it always opens up at
75%?
 

Ask a Question

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.

Ask a Question

Back
Top