how to name filename with date in macro

[Daniel M]

I have a macro that saves off a copy of a file. i would like to put a date
stamp and/or possibly a time stamp on the filename. Is there anyway of doing
this? thanks.

 

[Don Guillett]

From a recent posting of mine.

Goto the small excel icon in the upper left of the screen next to File>right
click>insert this.
For today, you will get aaa20071116

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim mydate As String
Application.DisplayAlerts = False
mydate = Format(Date, "yyyymmdd")
SaveAs Filename:="aaa" & mydate & ".xls"
Application.DisplayAlerts = True
End Sub