Hi
You can find the screen resolution with an API function:
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As
Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Public Function GSR() As String
GSR = CStr(GetSystemMetrics(SM_CXSCREEN)) & " x " &
CStr(GetSystemMetrics(SM_CYSCREEN))
End Function
Sub show()
MsgBox "Current screen resolution is " & GSR, vbInformation
End Sub

HTH
Regards
Pascal

"Arkimediz" a écrit dans le message de
news: ...
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?