Windows Property Example

This example closes all windows except the active window.

With Application.Windows
    For i = .Count To 2 Step -1
        .Item(i).Close
    Next
End With