Minimizing windows for 50+ opened books at one go

Many thanks, Nick !
Runs smooth, but a small tweak requested as the sub also
minimizes my other windows (window2, 3, etc) opened in Book1.xls
I need these other windows to remain as-is.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"NickHK" <TungCheWah@Invalid.com> wrote in message
news:uERLQU6MGHA.3732@TK2MSFTNGP10.phx.gbl...
> Max,
>
> Private Sub CommandButton1_Click()
> Dim Wnd As Window
>
> 'Quick way to handle Personal.xls and other hidden windows
> On Error Resume Next
> For Each Wnd In Application.Windows
> If Wnd.Caption <> ActiveWindow.Caption Then
> Wnd.WindowState = xlMinimized
> End If
> Next
>
> End Sub
>
> NickHK

Max,
Change
If Wnd.Caption <> ActiveWindow.Caption Then
To
If Wnd.Parent.Name <> ThisWorkbook.Name Then

NickHK

"Max" <demechanik@yahoo.com> wrote in message
news:%23iOwTF7MGHA.3728@tk2msftngp13.phx.gbl...
> Many thanks, Nick !
> Runs smooth, but a small tweak requested as the sub also
> minimizes my other windows (window2, 3, etc) opened in Book1.xls
> I need these other windows to remain as-is.
> --
> Max
> Singapore
> http://savefile.com/projects/236895
> xdemechanik
> ---
> "NickHK" <TungCheWah@Invalid.com> wrote in message
> news:uERLQU6MGHA.3732@TK2MSFTNGP10.phx.gbl...
> > Max,
> >
> > Private Sub CommandButton1_Click()
> > Dim Wnd As Window
> >
> > 'Quick way to handle Personal.xls and other hidden windows
> > On Error Resume Next
> > For Each Wnd In Application.Windows
> > If Wnd.Caption <> ActiveWindow.Caption Then
> > Wnd.WindowState = xlMinimized
> > End If
> > Next
> >
> > End Sub
> >
> > NickHK
>
>

Excellent, thanks !
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"NickHK" <TungCheWah@Invalid.com> wrote in message
news:#v7U#N7MGHA.2696@TK2MSFTNGP14.phx.gbl...
> Max,
> Change
> If Wnd.Caption <> ActiveWindow.Caption Then
> To
> If Wnd.Parent.Name <> ThisWorkbook.Name Then
>
> NickHK