Window.UsableHeight (Excel)

Retorna a altura máxima do espaço que uma janela pode ocupar na área da janela do aplicativo, em pontos. Double somente leitura.

With ActiveWindow 
 .WindowState = xlNormal 
 .Top = 1 
 .Left = 1 
 .Height = Application.UsableHeight 
 .Width = Application.UsableWidth 
End With