マウスカーソルを砂時計にする

処理に時間がかかる場合 処理中はマウスカーソルを砂時計にすることもできます

処理が終了したら xlDefault を設定して マウスカーソルを元に戻します

Application.Cursor = xlWait