Macro to save Excel file with date and time in the file name?
"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
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
|