minimize workbooks in macro

  • Thread starter Thread starter T Smith
  • Start date Start date
T

T Smith

I have a macro that opens 6 workbooks. I want to minimize 4 of the workbooks
and arrange the remaining 2 horizontally.
 
Hi

Look at this example:

Sub ArrangeWindows()
Dim wb As Workbook
For Each wb In Application.Workbooks
Windows(wb.Name).WindowState = xlNormal
Next
'books to minimize
Windows("Book1.xls").WindowState = xlMinimized
Windows("Book2.xls").WindowState = xlMinimized
Windows("Book3.xls").WindowState = xlMinimized

Application.Windows.Arrange (xlArrangeStyleHorizontal)
End Sub

Regards,
Per
 
Back
Top