Attribute VB_Name = "testapplicaiotnother3"
Sub テスト()

    Dim old As Boolean

    old = Application.DisplayStatusBar

    Application.DisplayStatusBar = True
    Application.StatusBar = "マクロ実行中です"
    
    MsgBox "ステータスバーを表示しました"

    Application.StatusBar = False
    Application.DisplayStatusBar = old

End Sub