Sub Zoom2Fit()
Columns("A:H").Select
ActiveWindow.Zoom = True
End Sub

HTH. Best wishes Harald

"Arkimediz" skrev i melding
...
I have a 30 sheet Excel package that was designed on a
monitor using 800 x 600 resolution and most sheets
have "Frozen Panes" to hide certain parts. It forces
itself into Full Screen mode for maximum use of the screen.

When it displays on a 1024 x 768 resolution monitor it
shows rows and columns that should be out of sight. I
don't want to use hide rows or columns as that makes
modifying the package more complicated.

Is there a way of detecting the screen resolution and
zooming Excel to only show what it does in 800 x 600
resolution?