Excelを終了させるにはQuitメソッドを使用します。

　構文　Object.Quit

　設定項目　　内容
　Object　　　Applicationオブジェクト[省略不可]

　次のサンプルは、保存されていないブックを上書き保存した上で
Excelを終了します。
保存するかどうかの確認メッセージは表示されません。

●サンプル1●

Sub QuitSamp1()

    Dim wb As Workbook

    For Each wb In Workbooks            '開いている全てのブックに対して
        If wb.Saved = False Then wb.Save '保存されていないブックは上書き保存
    Next wb

    Application.Quit                     'Excelを終了します

End Sub

　次のサンプルはは、保存が必要かどうかの確認メッセージを表示せず、
ブックを保存しないでExcelを終了します。

●サンプル2●

Sub QuitSamp2()

    Application.DisplayAlerts = False     '---確認メッセージ非表示
    Application.Quit                      '---Excelを終了します

End Sub