vba zoom out worksheet

[vio.coman]

Hi everybody,

I got a file containing approx. 30 worksheets that I would like to zoom out to lets say 80%.
My worksheets go like Array("Sheet1", "Sheet3", "Sheet4", "Sheet7").

Is it possible to zoom out multiple worksheets in a workbook?

Any help would be much appreciated!

Thanks!

[Richard Buttrey]

Hi,

One way

Please Login or Register  to view this content.

[nathansav]

ActiveWindow.Zoom = 80, i would put this in

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

I dont think you can make it apply to a sheet, i think its the Window only. Correction you can do it to all on open, they remain at the zoom level.

[vio.coman]

Richard,

thank you, works perfectly!

regards