Did you use:

Dim FinalRow as Integer

If yes, change it to:
dim finalrow as long

Integers can only go up to 32767.



don wrote:

I get a runtime error in a routine that has run many times in the
past.
The difference is each month I have more data.
the routine does a sort then stops at this line:

finalrow=cells(rows.count,"a").end(xlup).row

The answer should be 41236.
If I comment out this line and simply put in

finalrow=41236

I still get the runtime error '6'

If I put this line in a temp subroutine is runs fine.

Not sure what to do next.

Thanks for any help.

Don

--

Dave Peterson