Macro to save Excel file with date and time in the file name?

[Guest]

Does someone out there have a macro that when executed would save the current
Excel spreadsheet in the form "filename-current date-current time.xls" and
leave the file open for editing? Ideally, I would like to pin the macro to a
button on the user's toolbar. Thank you for you help in advance.
Troy

 

[Bob Phillips]

With Activeworkbook
.SaveAs .Filename & "-" & Format(Now,"dd-mmm-yyyy-hh-mm-ss")
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Bruno Campanini]

Does someone out there have a macro that when executed would save the
current
Excel spreadsheet in the form "filename-current date-current time.xls" and
leave the file open for editing? Ideally, I would like to pin the macro
to a
button on the user's toolbar. Thank you for you help in advance.
Troy

If you already have a file named Xxxxxx-date-time.xls:

=========================
Public Sub SaveAsDateTime()

With ActiveWorkbook
.SaveAs Left(ActiveWorkbook.FullName, _
InStr(1, ActiveWorkbook.FullName, "-")) _
& Format(Now, "yyyymmdd-hhmmss") & ".xls"
End With

End Sub
=========================

Ciao
Bruno