シートの見出しの下のステータスバーにメッセージを表示することができます。 Sub Sample25() Application.StatusBar = "処理中です..." MsgBox "処理終わりました" Application.StatusBar = False End Sub