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

Hi All,

I'd like a macro to have the workbook save as

Numbers as of "today's Date"

and then close that workbook.

I already tried the following...

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

    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\Smith\Desktop\Numbers as of.xls" & Format(Date, "mm-dd-yy")
        FileFormat:=xlNormal, Password:="", WriteResPassword:="",
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

I got a Compile and Syntax error.

Thanks