Zoom Q
 

How would I Zoom all sheets to 75% when particular file is opened?

Thanks

Zoom Q
 

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
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Seanie" wrote in message
...
How would I Zoom all sheets to 75% when particular file is opened?

Thanks

Zoom Q
 

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

--
Rick (MVP - Excel)


"Seanie" wrote in message
...
How would I Zoom all sheets to 75% when particular file is opened?

Thanks

Zoom Q
 

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%?

Zoom Q
 

Good point.

--
Rick (MVP - Excel)


"Seanie" wrote in message
...
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%?