save with date

[ksnapp]

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

 

[Bill Renaud]

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".

 

[Patrick Molloy]

Range("a1").Select

Selection = "=NOW()"

try instead
Range("a1").Value = Format$(Now , "yyyymmmdd")

 

[John Williams]

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

The default date string contains invalid characters for a filename.
Change the date format, for example:-

Range("a1").Select
Selection = "=NOW()"
Selection.NumberFormat = "ddmmyyyy hh-mm"
fname = Selection.Text & ".xls"