Sub arrange() Workbooks("your.xls").Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical, _ ActiveWorkbook:=True, SyncVertical:=True End Sub