Its probably a format problem (filenames don't like '/'
etc.

Try using "C:\Data_" & Format(Date, "mmddyy")

instead of "C:\Data_"&Date()&".xls"

Cheers,

Graham

-----Original Message-----
Hi All,

I am trying to compile a simple procedure that will name
and save the current workbook with a filename that
includes the system date. But my code is generating a
compile error, please can you review below and let me
know
where I am going wrong? thanks,

===

ChDir _
"C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Data_"&Date()&".xls" _
, FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

===
.

thanks Graham, works perfectly.
-----Original Message-----
Its probably a format problem (filenames don't like '/'
etc.

Try using "C:\Data_" & Format(Date, "mmddyy")

instead of "C:\Data_"&Date()&".xls"

Cheers,

Graham

-----Original Message-----
Hi All,

I am trying to compile a simple procedure that will name
and save the current workbook with a filename that
includes the system date. But my code is generating a
compile error, please can you review below and let me
know
where I am going wrong? thanks,

===

ChDir _
"C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Data_"&Date()&".xls" _
, FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

===
.

.