Hola a todos, consulta como puedo hacer para que esta macro me guarde varios archivos en PDF

Sub Macro1()

Dim nombre As String
nombre = Range("d12").Value

    Range("A5:W51").Select
    ChDir "C:\INFORMES"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\INFORMES\" & nombre & ".PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True _
        , IgnorePrintAreas:=False, OpenAfterPublish:=False
    
End Sub

En 21/10/2020 at 21:03 , mdussaillant dijo:

Hola a todos, consulta como puedo hacer para que esta macro me guarde varios archivos en PDF

¿Pero lo harías de distintos rangos de la misma hoja, de distintas hojas?...

Hola Haplox, siempre serian del mismo rango y la misma hoja, la idea es que me guarde con el nombre del registro que selecciona.

Hace 16 horas, mdussaillant dijo:

siempre serian del mismo rango y la misma hoja, la idea es que me guarde con el nombre del registro que selecciona.

Lo siento, pero no entiendo qué pretendes ?

Hola, gracias por tu preocupación, ya encontré la forma de hacerlo, gracias nuevamente.