Rename Excel files based on cell contents

Hi there,

a friend of mine recently experienced a harddrive failure containing al of his invoices made with Excel from the past 4 years. While the contents of most files could be salvaged, the filenames could not be recovered. He now has hundreds of Excel files with names containing random letters and numbers.

Is there a way of using a macro to loop through all of his Excel files in a folder, retrieve the date (which is in the same cell on all the worksheets) and rename the Excel files accordingly?

Much thanks in advance!

Cheers tigeravatar!

I've just tested that script and it seems to work like a charm. But let's say I wanted to add a client name (which would be on the same sheet in a different cell) in the filename i.e. [clientname]_[date].xls?

Sorry I forgot to mention this in my initial post...