Excel - keshavbaweja-git/guides GitHub Wiki

Set zoom level on all worksheets

Sub SetZoom()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Select
        ActiveWindow.Zoom = 150
    Next ws
End Sub