Count Property Example

This example closes all windows except the active window.

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