Window.UsableHeight (Excel)

Returns the maximum height of the space that a window can occupy in the application window area, in points.

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