時間がかかる処理を行う場合には ステータスバーにメッセージを表示すると 処理中であることが分かりやすくなります
特に画面の表示を更新しないようにしている場合には メッセージを表示するとよいかも知れません
最初にステータスバーの表示状態を取得し ステータスバーを表示します
次にステータスバーに処理中のメッセージを表示します
処理が終了したら ステータスバーの表示を Excel が行うように設定し ステータスバーの表示状態を元に戻します
Dim b_status As Boolean b_status = Application.DisplayStatusBar Application.DisplayStatusBar = True Application.StatusBar = "処理中です。しばらくお待ちください・・・" Application.StatusBar = False Application.DisplayStatusBar = b_status