Sub Test() MsgBox "The current window state is: " & ActiveWindow.WindowState ActiveWindow.WindowState = cdrWindowMaximized MsgBox "The current window state is: " & ActiveWindow.WindowStateEnd Sub