UsableWidth Property Example

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