ステータスバーに文字を表示するには(その1:ステータスバーに表示するだけ)

ステータスバーに文字を表示（特にfor現在のマクロの進行状況などを表示したい場合なんかありませんか？）する方法が結構簡単にできます。

【事例】
Sub status_display()
Application.StatusBar = True
Application.StatusBar = "ステータスバーに表示中です"
for i=1 to 10000000
k=k+1
next
Application.StatusBar = False
MsgBox "終了"
End Sub

【注意点】

Application.StatusBar = True で表示できるようになります。どうもいきなりApplication.StatusBar = "ステータスバーに表示中です"としても良いようだ。

Falseで表示を消すことができる．