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

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

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)


"sonic_d_hog" <[email protected]> wrote in message
news:[email protected]...
> 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

"sonic_d_hog" <[email protected]> wrote in message
news:[email protected]...
> 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