VBA～ウィンドウを閉じよう～Excel

VBAで複製ウィンドウを閉じたい場合はWindow.WindowNumberプロパティでウィンドウ番号を取得し、ウィンドウ番号が1以外なら複製ウィンドウなので閉じます。

下のコードを実行すると複製ウィンドウが閉じ複製元のウィンドウだけがひらいたままになります。

Sub test1()

Dim allwindow As Window

For Each allwindow In Windows

If allwindow.WindowNumber > 1 Then

allwindow.Close

End If

Next

End Sub