Error en el método 'Add' del objeto 'Workbooks'

[Neverhood]

El código que yo uso para pasar información a Excel es el siguiente:

Código:

Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True 'indica si se muestra excel o es oculto
ApExcel.workbooks.Add

ApExcel.Cells(1, 1) = "CLAVE"
ApExcel.Cells(1, 2) = "DESCRIPCION"
ApExcel.Cells(1, 3) = "PRECIO"
ApExcel.Cells(1, 4) = "GARANTIA"

ArchivoPrecios = App.Path & "\Precios_Bodega.xls"

ApExcel.ActiveWorkbook.SaveAs _
  FileName:=ArchivoPrecios, _
  Fileformat:=1, _
  createbackup:=False
ApExcel.Workbooks.Close