Is your date in cell $A$1 formatted as mm/dd/yyyy? You cannot use slashes in
a filename, and will need to write a routine to replace them with something
else (i.e. "-"). See the Help topic "Guidelines for naming workbooks".

--
Regards,
Bill


"ksnapp " wrote in message
...
here is the code

Sub dater()

Dim fname

Range("a1").Select
Selection = "=NOW()"

fname = Worksheets("sheet1").Range("A1").Value
fname = fname & ".xls"
ChDir "C:\WINNT\Profiles\u436825\Desktop"
ActiveWorkbook.SaveAs FileName:=fname
End Sub

it is supposed to put the date in cell a1 and then save the file with
the date as the name. It gets an error on the last line

anyhelp appreciated.


---
Message posted from http://www.ExcelForum.com/