Como Exportar Varias hojas a PDF desde Excel

He creado la siguiente macro, inicialmente funcionó y de un momento a otro dejo de hacerlo, necesito por favor ayuda. Parece que no está reconociendo la parte del nombre en esta seccion

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ru & "\" & Nombre & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Application.DisplayAlerts = False

A continuación relaciono la macro completa

Sub PDF()
'
' PDF Macro
'Sheets("Tapa").Select
'Macro Creada por Productividad & Valores SAS
Application.ScreenUpdating = False
Nombre = Sheets("Variables").Range("g8").Value & " - " & Sheets("Variables").Range("c6").Value & " - " & Format(Range("d175"), "dd-mm-yyyy")
ruta = ActiveWorkbook.Path
Sheets("tapa (2)").Select
Range("A1:q171").Select
Sheets("Resumen").Select
Range("b1:j53").Select
Sheets("Resumen A").Select
Range("b1:j53").Select
Sheets("Resumen B").Select
Range("b1:j54").Select
Sheets("Certificado Donacion").Select
Range("A1:R43").Select
ThisWorkbook.Sheets(Array("tapa (2)", "Resumen", "Resumen A", "Resumen B", "Certificado Donacion")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ru & "\" & Nombre & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Application.DisplayAlerts = False
' ActiveWindow.Close
Application.DisplayAlerts = True
Sheets("Resumen").Select
Range("A1").Select
Sheets("Resumen A").Select
Range("A1").Select
Sheets("Resumen B").Select
Range("A1").Select
Sheets("Certificado Donacion").Select
Range("A1").Select
Sheets("Tapa").Select
Application.ScreenUpdating = False

End Sub