ステータスバーにメッセージを表示します。 マクロ終了後に表示を消します。 Sub Sample57() 'ステータスバーに表示 Application.StatusBar = "マクロを実行中です。" MsgBox "マクロの処理を終了しました。" 'ステータスバーに表示を消す Application.StatusBar = False End Sub