Macro to File/Save as "Numbers as of [today's date]" on desktop

I think you also need a comma after the file name and before FileFormat=....

I'm lost on this one. I want to do 2 things here

1. Replace "today's date with the current date, I know that the "DATE" function needs to be used, but I also know that if a comma or () or whatever other character I need is just 1 off, it won't work. Can anyone tell me exactly is wrong here?

2. How do you record closing a workbook with a macro when there's no way to click on "stop" to stop the macro after it's been closed? What is the exact code for this and where do I put it in the relation to the "File/Save As" macro?

Thanks much

Sub File_SaveAs()
'
' File_SaveAs Macro
' Macro recorded 2/17/2009 by ...
'

'
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\Smith\Desktop\Numbers as of today's date.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub