【VBA】マクロ終了時のメッセージ｜タイム付きmsgbox

Public Sub MsgEndMacro(ByVal time As Double)
    MsgBox "実行時間： " & time & "秒", vbOKOnly, "終わりました"
End Sub

Public StartTimer As Double '途中から計測する場合のためにパブリック変数にする
Public Sub Main()
    '開始
    Call StartMacro
    StartTimer = Timer

    '〜メインの実行内容〜

    '途中でマクロ中断する場合
    If (ユーザーフォームでキャンセルボタンが押されたとき等) then
      Call EndAll
    End If

    '終了
    Call EndMacro

    '終了メッセージ
    Dim time As Double: time = Timer - StartTimer
    Call MsgEndMacro(time)
End Sub

vbOKCancel + vbCritical '警告
vbYesNo + vbQuestion '質問
vbOKOnly + vbExclamation '注意
vbAbortRetryIgnore + vbQuestion