ExcelVBAでExcel終了させる

Sub ExQuit1()
    '確認メッセージを表示させない
    Application.DisplayAlerts = False
    'Excelを終了する
    Application.Quit
End Sub

Sub ExQuit2()
    '確認メッセージを表示させない
    Application.DisplayAlerts = False
    '他のブックが開いていなければ
    If Workbooks.Count <= 1 Then
        'Excelを終了する
        Application.Quit
    End If
End Sub

ネタ元

excel-excel.com