Macro para crear un archivo PDF con varias hojas de Excel

Estoy preparando una macro para guardar varias hojas de Excel en un archivo PDF, mi intención es que lo guarde en el directorio donde se ejecute el archivo y el nombre de este sea variable. Adjunto le envío lo que tengo (resalto en negrita donde me da error). Muchas gracias por su gran ayuda

Sub Crear_PDF()

' ActiveSheet.Unprotect ("xxxx")

Application.ScreenUpdating = False

' Call forma_imp (Macro para ajustar las líneas de cada página, esto esta funcionando bien)

ruta = ThisWorkbook.Path & "\"

NOMBRE = Sheets("Variables").Range("Name_PDF")
Sheets(Array("Oficio", "Aporte_Inicial_001", "Aporte_Regular_002", "Aporte_Add_009")).Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & "\" & NOMBRE & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
' ActiveSheet.Protect ("xxxx")
ActiveWorkbook.Close False
MsgBox "Generación de Archivo PDF exitosa"
Sheets("Menu").Select
Range("A1").Select
Application.ScreenUpdating = True

End Sub