Sub ステータスバーにデータを表示する()

    ' ステータスバーを表示
    Application.DisplayStatusBar = True
    ' メッセージを設定
    Application.StatusBar = "只今、処理中です... しばらくお待ちください"
    
    ' 擬似的な待ち時間
    Application.Wait [Now() + "00:00:10"]
    
    ' 最後に必ず制御を Excel に戻す
    Application.StatusBar = False
End Sub