To size a window, set its Height and Width properties:
Sub size() With ActiveWindow .Height = 300 .width = 400 End With End Sub