SaveAs with cell as a date

[jpettit]

Sub save_itas3()
fname = Application.GetSaveAsFilename _
(InitialFilename:=Range("a1") & " " & WorksheetFunction.Substitute(Date, "/", "_"), _
FileFilter:="Excel Files (*.xls),*.xls", FilterIndex:=0, Title:="Save As")
If fname <> "False" Then
ActiveWorkbook.SaveAs Filename:=fname
End If
End Sub

Can someone break this down for me? I am looking for something similar, yet simpler.
More along these lines, with the cell A1 containing a date of 2002/02/25:

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs FileName:="C:data" & ThisFile
End Sub

 

[NateO]

The following may be problemtatic as Excel doesn't like to save files with "/".

ThisFile = Range("A1").Value

Therefore, something like:

thisfile = WorksheetFunction.Substitute(range("a1"), "/", "_")

may be more appropriate, where Excel replaces / with _ with the Substitute function (works the same as the worksheet function (e.g., =subsitute(a1,"/","_"))

Cheers, Nate

P.S. - How about that game yesterday?
This message was edited by NateO on 2002-02-25 09:05

 

[jpettit]

Thanks very much...works!