My question was rather trivial. I apologize. I used VBA today for the first time.
Anyhow, here is one way to do what is required (saving the files on the Desktop):
Sub GiveNameAsDate()
Dim SendPath, NameFile, SaveAsFile, DateNow
SendPath = "C:\Documents and Settings\Desktop\"
DateNow = Application.Text(Now(), "dd.mm.yyyy;@")
NameFile = "FileName"
SaveAsFile = DateNow
NameFile = NameFile & SaveAsFile
ActiveWorkbook.SaveAs Filename:=SendPath & NameFile, _
FileFormat:=xlNormal, CreateBackup:=False
End Sub