Well Estefex,
Add the code below somewhere in your VBA Module or Create a Macro with a Shortcut and insert the following below
---------------------------------------------------
Dim sAppPath As String, sFileName As String, sDate As String
sAppPath = "c:\"
sDate = Replace(FormatDateTime(Now(), vbShortDate), "/", ".")
sFileName = sAppPath & "Numbers - " & sDate & ".xls"
ActiveWorkbook.SaveAs Filename:= _
sFileName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
---------------------------------------------------
Will Generate: Numbers - 9.28.2006
In addition you can make this more robust by adding an if FileExist statement to change the filename accordingly if you need to save more numbers in one day but there are other ways just my modifying the code above in the sDate section. Check for differences below.
---------------------------------------------------
Dim sAppPath As String, sFileName As String, sDate As String
sAppPath = "c:\"
sDate = Replace(Replace(FormatDateTime(Now(), vbGeneralDate), "/", "."), ":", ".")
sFileName = sAppPath & "Numbers - " & sDate & ".xls"
ActiveWorkbook.SaveAs Filename:= _
sFileName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
---------------------------------------------------
Will Generate: Numbers - 9.28.2006 1.48.56 PM.xls