Change the Zoom Level to 75% on all sheets?

[chordringer]

Is there a way to run a macro that will set the Zoom level for all sheet to 75%?

 

[Datsmart]

Sub foo()
Dim WS As Worksheet
    For Each WS In Worksheets
        WS.Activate
        ActiveWindow.Zoom = 75
    Next WS
End Sub

 

[cart0250]

Try:

Sub zoomIt()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Activate
    ActiveWindow.Zoom = 75
Next ws
End Sub

 

[chordringer]

Woot! Thanks.

 

[scoha]

How about being able to set different zoom settings for each sheet in the workbook?

 

[Jack in the UK]

Not sure how You want to do this, but something to play with. Copy both codes into a standard Excel VBE Module

jiuk

Dim x As Long

Sub foo()
' Our WEB Site - www.excel-it.com
x = 10
Dim WS As Worksheet
    For Each WS In Worksheets
        WS.Activate
        ActiveWindow.Zoom = x + (100 / mySizA)
        x = x + mySizA
    Next WS
End Sub

Function mySizA() As Integer
Dim a As Long
Dim vResult
a = Worksheets.Count
vResult = a
mySizA = vResult
End Function