This example maximizes the application window in Microsoft Excel.
Application.WindowState = xlMaximized
This example expands the active window to the maximum size available (assuming that the window isn't already maximized).
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With