時間がかかる処理を行う場合には ステータスバーにメッセージを表示すると、処理中であることが分かりやすくなります
特に画面の表示を更新しないようにしている場合には、メッセージを表示するとよいかも知れません

最初にステータスバーの表示状態を取得し、ステータスバーを表示します
次にステータスバーに処理中のメッセージを表示します
処理が終了したら ステータスバーの表示を Excel が行うように設定し、ステータスバーの表示状態を元に戻します

Excel2007 以降では、マクロ以外からステータスバーを非表示にすることができなくなります
将来的には赤文字の部分が必要なくなる可能性が高いようです

Dim bln_status As Boolean

bln_status = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "処理中です。しばらくお待ちください・・・"

Application.StatusBar = False
Application.DisplayStatusBar = bln_status