Well, if I use the worksheetfunction, execution time for the 54000 rows I have reduces by 20%, to 1 minute. Then, if I also omit the code to update the last column (which isn't in your code), execution time reduces to just 35 seconds. Granted, that's still much slower than your time, but that may be partly due to whatever other background processes are running on my laptop vs your PC. Doubtless, differences in CPUs, RAM, etc, also play a part.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]