Get the Usable Height and Width
Sub GetActiveWindowUsableHeightWidth() MsgBox ActiveWindow.UsableHeight MsgBox ActiveWindow.UsableWidth End Sub