Zoom Problems

[NickyT]

Hello,

I have placed this code on every page (including the "ThisWorkbook" sheet)

Sub ChangeZoom()

    ActiveWindow.Zoom = 75
    
End Sub

The zoom works on the spreadsheet when im using it, but if i close the spreadsheet and then open it again the zoom changes back to 100%?!?

So i have to apply the 75% zoom on each of the 16 sheets everytime.
(Tedious)

Anyone have an idea on how i can solve this?

Thanks,
Nicky.

 

[VoG]

Place this in the ThisWorkbook module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = 75
End Sub