本示例关闭除第一个窗口外的所有窗口。

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