進捗状況を確認したい場合、いちいちメッセージダイアログを開くと
閉じる作業が必要になり、全然自動化じゃなくなってしまう。

そこで、ステータスバーに出しまくるという方法を使うと便利。
┌──────────────────────────────────────┐
│Application.StatusBar = "メッセージ"                                        │
└──────────────────────────────────────┘

上書しまくりOKで、最後にメッセージを消去したい場合には、以下の様にする。
┌──────────────────────────────────────┐
│Application.StatusBar = False                                               │
└──────────────────────────────────────┘

なお、処理が重くなると、表示も固まってしまいがちなので
こういった場合は「DoEvents」と併用した方がよいようだ。
┌──────────────────────────────────────┐
│DoEvents                                                                    │
│Application.StatusBar = "メッセージ"                                        │
└──────────────────────────────────────┘