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" wrote in message
...
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