Sub GetActiveWindowUsableHeightWidth() MsgBox ActiveWindow.UsableHeight MsgBox ActiveWindow.UsableWidth End Sub