Error al Imprimir en pdf

[Laura Rojas]

buenos días, acudo a ustedes a ver si alguien podría ayudarme tengo un código que lo que hace es intentar imprimir una hoja de excel en Pdf en una ruta determinada y nombre pero al momento de compilar no muestra errores y al momento de ejecutar la macro me muestra un error que dice " Se ha producido el error "5" en tiempo de ejecución: Argumento o llamada a procedimiento No valido", he revisado el código y no se que sera, desconozco si para imprimir en PDF debo activar algo si pueden ayudar les dejo el código y les señalo donde me da el error al momento de depurar me señala estas lineas que es de donde me da el error
 

"""Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True """"

les dejo el codigo completo que tengo

Sub Imprime1()

Application.ScreenUpdating = False

If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then
'----------------------------------------------

Dim HResumen As Worksheet
Dim Ruta As String
Dim Titulo As String

Set HResumen = Worksheets("Resumen")

Ruta = ThisWorkbook.Path & "\"
Titulo = HResumen.Range("A2").Text

HResumen.Range("A1:I20").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

HResumen.Range("A1").Select
'----------------------------------------------

End If

End Sub
 

[Haplox]

@Laura Rojas, el código funciona perfecto, así que solo se me ocurren 2 cosas:

¿Has guardado ya el libro? Si no es así no hay ruta en la que guardar

¿Tienes datos en A2? SI es así asegurate que ningún caracter es de los prohibidos en nombres de archivo:

Cita

\ / : * ? " < > |