VBA - How do I fix Run-time error '6': Overflow

[parkerbelt]

The error happens at this line:

lastrow = Cells(Rows.Count, "B").End(xlUp).Row

I suspect that it is happening because my data has 97000 something rows which is over the 65000 whatever rows that the old excel used to have.

Is there a different line of code that I should be using to find the last row in a column?

 

[AlphaFrog]

That line of code is fine.

The variable lastrow is declared as type Integer. It should be declared as type Long to accommodate the larger row value.

Dim lastrow As Long

The max value of an Integer is 32,767

The max value of a Long is 2,147,483,647

 

[parkerbelt]

That line of code is fine.

The variable lastrow is declared as type Integer. It should be declared as type Long to accommodate the larger row value.

Dim lastrow As Long

Is that all! That was easy. I can't test it right now or I'll have to restart the program, but I'm sure you're right. Thank you!!

 

[AlphaFrog]

You're welcome.

 

[robertsclark]

That line of code is fine.

The variable lastrow is declared as type Integer. It should be declared as type Long to accommodate the larger row value.

Dim lastrow As Long

The max value of an Integer is 32,767

The max value of a Long is 2,147,483,647

Thanks for this - I had the same problem with the same piece of code!