minimize workbooks in macro

[T Smith]

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

 

[Per Jessen]

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