Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Arranging and Resizing Windows
Sub arrange()
    Workbooks("your.xls").Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical, _
        ActiveWorkbook:=True, SyncVertical:=True
End Sub