Save excel file as current date

I want to write code to save an excel file with the current date as the file name each day automatically.

Please Help

Hi,

Not tested but you can try.
You need to change the file path.

Sub mydate()
Dim fd As Date
fd = Date
ActiveWorkbook.SaveAs Filename:="G:\users\cc\" & fd
End Sub


HTH

Charles

Thanks Charles I will give it a try.

webbey21,

You may have problems with the date format.

Try this

Dim fd
fd = Format(Now(), "mm-dd-yy")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Charles Harmon\My Documents\" & fd

Charles