【VBA】ステータスバーにメッセージを表示する

サンプルプログラム

Sub StatusBarSample()

    'ステータスバーにメッセージを表示
    Application.StatusBar = "実行中です...しばらくお待ちください"
    
    'マクロの実行を5秒間停止する
    Application.Wait (Now + TimeValue("00:00:05"))
    
    'ステータスバーにメッセージを非表示(既定に戻す)
    Application.StatusBar = False

End Sub

実行結果