Looks like all you needed was to turn off calculation.

the other changes are of trivial benefit at best.

Application.Calculation = xlCalculationManual

existing code.

Application.Calculation = xlCalculationAutomatic

--
Regards,
Tom Ogilvy

wrote in message
oups.com...
Hey, you decreased my run time from a number of hours to a number of
seconds. Thanks a bunch! Have a great day!