変数の定義はひとつづつ

変数の定義はひとつづつ行おう。

具体的には

Dim lRecCnt, lCnt As Long

とするのではなく

Dim lRecCnt As Long

Dim lCnt As Long

とするべきである。

前者では　lRecCnt は Long ではなく、Variant になってしまう。