Beispiel zur UsableHeight-Eigenschaft

In diesem Beispiel wird das aktive Fenster auf die maximal mögliche Größe erweitert (vorausgesetzt, das Fenster ist noch nicht maximiert).

With ActiveWindow
    .WindowState = xlNormal
    .Top = 1
    .Left = 1
    .Height = Application.UsableHeight
    .Width = Application.UsableWidth
End With