ActiveWorkbook.SaveAs "c:\mypath\" & Format(Date,"mmddyyyy") & ".xls"


--

John Green - Excel MVP
Sydney
Australia


"Tim_S" wrote in message ...
I made a macro to perform a "save as" and give it a file name as you see
below. I now need it to create the file name based on the date ...

ActiveWorkbook.SaveAs "c:\mypath\currentdump.xls"

I need it to save the file as the followint format.. (replace the mmddyyyy
with the date...)

ActiveWorkbook.SaveAs "c:\mypath\mmddyyyy.xls"

What do I need to do to accomplish this?

Thanks