Sub GetActiveWindowUsableHeightWidth() MsgBox ActiveWindow.UsableHeight MsgBox ActiveWindow.UsableWidthEnd Sub