Excel VBA データ型不一致エラー

昨日、顧客からＯｆｆｉｃｅ２０００で動かすと”データ型不一致エラー”がでてしまうとの連絡がありました。



もともとＯｆｆｉｃｅ２０００をサポート範囲としていなかったのですが、使っているのであれば動かさなきゃと思い、訪問して確認してみました。



エラーは以下の２行目で発生していました。

１００００を２０００にするとエラー解消！いくつまで行けるのか確認しなかったのですが１００００は許してくれないようです。



ShohinCount = Sheets("商品マスター").Range("a1:a10000")

sc = WorksheetFunction.CountA(ShohinCount)



２００７バージョンで６５５３６を超えた時に同じように不具合がでた書き方です。



データの数を数えるのには不適な方法だとつくづく感じた次第です。



やはり、Ｅｎｄ（Ｘｌup).Ｒｏｗで調べるのが無難なようです！



またまた学んだ１日でした。