Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Arranging and Resizing Windows

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