One of the benefits of saving a filename with a date is being able to sort
by date.
It is, therefore, preferable to save with the format yyyymmdd or a variation
thereof.


wrote in message
ups.com...
Here is what I did on one of my macros. I needed it to save with the
current date and also save as it was:

Sub test()

ActiveWorkbook.SaveAs Filename:= _
"F:\User Form for Lessons Learned\Lessons Learned " &
Format(Now(), "mm-dd-yyyy") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWorkbook.SaveAs Filename:= _
"F:\User Form for Lessons Learned\Lessons Learned.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub

I hope that helps.
roryt wrote:
Please could someone tell me how to use a macro to Save a worksheet as
the
filename + the date and then save it as it's previous name again. This
is
to create a backup copy of the spreadsheet and then let the user work on
the
previous spreadsheet from it's original filename. I am pretty sure this
has
got to be in VBA. Here is the code I have found to save as
filename+Date:

Private Sub SaveDatabaseButton_Click()
ActiveWorkbook.SaveAs Filename:= _
"F:\User Form for Lessons Learned\Lessons Learned " _
& Format(Date, "yyyymmdd ") & Format(Time, "hh.mm.ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

But because I am totally new to VBA I can't even get that to work!!! So
i
really need someone to tell me exactly to get from start to finish
(finish
being a point where I have a macro that will do what I have explained
above).

If anyone can help I will be very very grateful. Thanks