Macro debugs at "Application.CountA" with 45.000+ rows

Originally Posted by Kjaer

Hi

I'm using this code (part of a larger macro) to count the rows with data.

Set myRangeCopyA = Range("A54:A65536")
Dim myCountCopyA As Integer
myCountCopyA = Application.CountA(myRangeCopyA)

The full macro works fine with dataextract counting 30.000- rows but it debugs at "myCountCopyA = Application.CountA(myRangeCopyA)"
at data extract counting 45.000+ (haven't tried it with anything between those two amount of rows).

Anyone knows a way to avoid that problem?

Thanks,
Kjaer

Hi,

'Integer' goes to 32,768

try 'as Long'

hth
---