処理に時間がかかる場合 処理中はマウスカーソルを砂時計にすることもできます 処理が終了したら xlDefault を設定して マウスカーソルを元に戻します
Application.Cursor = xlWait