Enter current date automatically in filename

[Guest]

Excel 2000
When saving a file in a Macro, I want to automatically insert the current
date in the file name.

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\John\My Documents\Books(DATE HERE).xls",
FileFormat:=xlNormal _
, CreateBackup:=False

Result: Books01/25/07.xls

 

[CoRrRan]

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\John\My Documents\Books" & Format
(Date,"yymmdd") & ".xls", FileFormat:=xlNormal

HTH, CoRrRan