Error #REF al generar archivo PDF con macro

Gusto en saludarles.

Investigando por estos foros, encontré una macro que realiza la impresión de un archivo de Excel en PDF. Apliqué la macro en mi archivo que uso a diario y funciona, exceptuando por un detalle.

Al realizar la impresión se visualiza en el PDF error #REF en muchas celdas, pero al revisar el archivo los valores de las celdas están correctos, es decir, no muestra ese error, y no tengo ni idea a que se debe.

Por lo anterior, solicito del apoyo de ustedes para que me ayuden por favor a corregir ese error en el PDF y de antemano les manifiesto las gracias por ayuda.

Les detallo la macro que estoy usando, y les adjunto las fotos del archivo Excel y del PDF que genera la macro

Sub crearPDF()
Application.ScreenUpdating = False
Sheets(Array( _
  "PROYECCION COBRANZA", _
  "DIARIA - GRUPO", _
  "FACTURAS EN TRANSITO", _
  "FACTURAS SIN DESPACHAR")).Copy _
With ActiveWorkbook
  .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & Format(Now, "yyyy-mm-dd hh.MM am/pm") & " - Proyección de Cobranzas.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, OpenAfterPublish:=False
  .Close False
  Application.ScreenUpdating = True
End With
End Sub

Añade tu respuesta

Haz clic para o