Don't see why you need to modify the code that's already there.
If the function does what is required for a single row, just run Sub
cleanuptime which does it for 30000 rows.


Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup