Prev: single user form with multiple worksheets
Next: Disable cut/copy of shape and images in excel 2007
From: T Smith T on 29 Jan 2010 02:38
I have a macro that opens 6 workbooks. I want to minimize 4 of the workbooks
and arrange the remaining 2 horizontally.
From: Per Jessen on 29 Jan 2010 03:03
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

"T Smith" <T Smith(a)discussions.microsoft.com> skrev i meddelelsen
news:63943E24-EAAD-4987-BB15-BC55E1F65179(a)microsoft.com...
>I have a macro that opens 6 workbooks. I want to minimize 4 of the
>workbooks
> and arrange the remaining 2 horizontally.

 | 
Pages: 1
Prev: single user form with multiple worksheets
Next: Disable cut/copy of shape and images in excel 2007