Visual Basic - porque no me funciona SaveAs????

Hola.

Estoy exportando los dato de un recodset a excel, pero cuando quiero guardar el archivo me marca error en esta parte del código >ApExcel.SaveAs Format(Now(), "ddmmyyyy")<.

Por favor me pueden ayudar.
Gracias

Private Sub mnuExportar_Click()
Dim Fila As Long
Dim ApExcel As Variant

Set ApExcel = Nothing
Set ApExcel = CreateObject("Excel.Application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
datPrimaryRS.Recordset.MoveFirst
ApExcel.Cells(1, 1).Formula = "Issue by"
ApExcel.Cells(1, 2).Formula = "Iata"
ApExcel.Cells(1, 3).Formula = "Issue date"
ApExcel.Cells(1, 4).Formula = "Option"
ApExcel.Cells(1, 5).Formula = "Tkt"

Fila = 2
While (Not datPrimaryRS.Recordset.EOF)
ApExcel.Cells(Fila, 1).Formula = datPrimaryRS.Recordset.Fields("Issue by")
ApExcel.Cells(Fila, 2).Formula = datPrimaryRS.Recordset.Fields("Iata")
ApExcel.Cells(Fila, 3).Formula = datPrimaryRS.Recordset.Fields("Issue date")
ApExcel.Cells(Fila, 4).Formula = datPrimaryRS.Recordset.Fields("Option")
ApExcel.Cells(Fila, 5).Formula = datPrimaryRS.Recordset.Fields("Tkt")

datPrimaryRS.Recordset.MoveNext
Fila = Fila + 1
Wend

ApExcel.SaveAs Format(Now(), "ddmmyyyy")
Set ApExcel = Nothing

End Sub

intenta convertirlo a texto con la funcion cstr()
ej.
ApExcel.SaveAs cstr(Format(Now(), "ddmmyyyy") )