処理に時間がかかる場合 処理中はマウスカーソルを砂時計にすると、画面がフリーズしてないことが視覚的に分かりやすくなります
処理が終了したら xlDefault を設定して マウスカーソルを元に戻します

Application.Cursor = xlWait