Excel VBA Excel終了時にメッセージを表示する(cmdExit_Click)

「cmdExit_Click」に必要な処理を記述することで、Excelを閉じて終了する時にメッセージを表示させることができる。
以下はその一例。
 
Private Sub cmdExit_Click()
    
    Dim intRtn As Integer
    
    intRtn = MsgBox("処理を終了します。" & vbCrLf & _
                    "よろしいですか?", vbQuestion + vbOKCancel, "終了確認メッセージ")
    
    If intRtn <> vbOK Then
        Exit Sub
    End If
 
    '保存して閉じる
    ActiveWorkbook.Close SaveChanges:=True
    'Workbooks(XLS_NAME).Close SaveChanges:=True
    'Workbooks.Close
        
End Sub