オーバーフローを回避する方法？

アクティブセルがある場所の行に色を付けて見やすくするマクロがあるのですが、
(※参考URL：https://oshiete.goo.ne.jp/qa/12733463.html）

Ctrl＋A等でシート内のセルを全選択すると、オーバーフローのエラーが発生してしまいます。
エラーが出ないようにする処理を教えて頂けないでしょうか。

No.2 ベストアンサー 回答者： naktak 回答日時： 2022/01/05 15:01

If Target.Count

を
If Target.CountLarge
にしたらいいと思います。

この回答へのお礼

CountLarge にしただけでオーバーフロー発生しなくなりました。
エラー時の処理はもっと複雑なコードを書く必要があると思っていたのに、
あっさり解決して驚きました！
ありがとうございました。

お礼日時：2022/01/05 17:18

No.1 回答者： bernie_uncle69 回答日時： 2022/01/05 14:40

ちゃんとボタン作って範囲を限定して色つけたら良いのでは？

この回答へのお礼

リンク先をよく読むと分かりますが、
自動的にアクティブカーソル位置を追従して色を塗る機能なんです。

お礼日時：2022/01/05 17:17