Auto zoom on selecting worksheet

[mikeymay]

Is there a way of getting the screen to zoom in or to a ratio that fits a certain range of columns onm the screen?

Different users are using having issues with the size of the fonts with certain sheets and I would like to set it automatically and have a minimum zoom ratio.

 

[VoG]

Maybe like this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Activate()
ActiveWindow.Zoom = 200
End Sub



Private Sub Worksheet_Deactivate()
ActiveWindow.Zoom = False
End Sub