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 wit
the date as the name. It gets an error on the last line

anyhelp appreciated

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