Que es este error '-2147024773 en VB

Hola copie una rutina de VB

Dim Ruta As String, nombre As String
Ruta = "Z:\Ventas Rogelio\Cotizaciones 2013\"
nombre = Ruta & Worksheets("Hoja1").Range("AA13") & ".pdf"
'Worksheets("Hoja1").SaveAs Filename:=nombre, _
FileFormat:=xlCSV, CreateBackup:=False
Worksheets("Hoja1").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nombre, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "El libro se guardo en Cotizaciones 2013", vbInformation
Range("Consecutivo") = Range("Consecutivo") + 1

me funciona bien en un libro pero en otro me aparece este error '-2147024773 me podrían ayudar a corregirlo

Gracias