スキルアップ・問題解決なら、モーグにおまかせ！

2つの窓を開いて、作業をしています。
作業用の窓と、操作用ボタンを配置した窓です。
 
VBAを使って、終了時に、一気にこの２つの窓を閉じるには、どうしたらいいでしょうか。
 
Excel2007の時には、「エクセルの終了」というボタンがありました。
また、エクセルの内側に窓があったので、エクセルを終了させればよかったのですが、現行バージョンだと、２つのエクセルが動いているような状況なので、手作業だと、一つずつ × をクリックしなければなりません。
 
コマンドボタンを使って、「上書き保存」「２つの窓を閉じる」の作業を一気にやりたい。
再び、ファイルを開いたときには、２つの窓の状態になっていてほしいです。
 
 
 
 

参考コード

Sub CLOSE_ALLBOOK()
Dim wbk As Workbook

    For Each wbk In Application.Workbooks
        Select Case wbk.Name
            Case "aaa.xlsx"
                wbk.Close True
            Case "bbb.xlsx"
                wbk.Close False
        End Select
    Next
End Sub

お手数かけました。
 
Application.Quit
 
これで、よかったのですね。