minimize workbooks in macro

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

HiLook at this example:Sub ArrangeWindows()Dim wb As WorkbookFor Each wb In

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