Масштаб Листов от разрешения монитора

[tolikman]

а так:

if Application.WindowState = xlMaximized then
   if Application.Width<=800 then 
      ActiveWindow.Zoom = 120 ' при 800х600'
   else
      ActiveWindow.Zoom = 80 'при другом'
   end if
end if

или принудительно максимизовать окно, а потом вернуть в исходное состояние, если надо.

PS. правда мой офис при разрешении 1280х1024 показывает Application.width=966. Почему?