Window.UsableHeight (Excel)

Devuelve el alto máximo del espacio que puede ocupar una ventana en el área de la ventana de la aplicación, en puntos. Double de solo lectura.

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