How to Save with automatic filename plus today's date

[Gary Drumm]

Is there a way to save a file and have it automatically put today's date in the file name?

Example: original File name = test.xls
desired file name = test072807.xls, or test.072807.xls, or test.07 28 07.xls

So, I open the file, do whatever, and then click save.
When I click save, it does one of the above, given that today is 7 28 07.

I tried to search for this topic, but search wasn't working well on my PC today.

Thanks,
Gary

 

[joefrench]

Gary,

Unfortunately, I have not been able to duplicate the problem that you are running into.

Maybe try changing to this?
Now the workbook will save itself, then perform the save as when closed....

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Application.DisplayAlerts = False

Dim strMyDir As String
Dim strDate As String

strMyDir = "c:\My Documents\Blood Sugar\"
strDate = Format(Now, "mm-dd-yy")

If Dir(strMyDir, vbDirectory) = "" Then
    MkDir strMyDir
End If

ActiveWorkbook.SaveAs (strMyDir & "Blood Sugar " & strDate & ".xls")

Application.DisplayAlerts = True
End Sub