[Mazzi]

попробуй вот этот код в редакторе макросов. А затем просто выполни макрос SaveCurDate.

Sub SaveCurDate()
Dim CurDate, Path, FName As String
CurDate = Date$
Path = "c:\" 'дирекория для сохранения
FName = CurDate + ".xls"
ActiveWorkbook.SaveAs Filename:=Path + FName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Правда есть здесь один минус, если такой фал существует, то появиться вопрос о презаписи.