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

[jorevale]

Hola amigos

En éste código, extraído de:

http://www.vb-mundo.com/verTruco.asp?truco=244

me manda el error del título... alguno de uds. podría orientarme sobre lo que pasa?

'Añade un command Button a tu formulario
'Añade la referencia Microsoft Excel X.0

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
xlWS.Cells(2, 2).Value = 1
xlWS.Cells(1, 3).Value = 2
' Nos guardara esto en el fichero excel llamdo prueba.xls
xlWS.SaveAs "c:\prueba.xls"
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
End Sub

[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