Macro para convertir todas las hojas de un libro Excel a PDFs Individuales

Código:

Sub Hojas·a·PDFs()

    Application.ScreenUpdating = False

    Dim hoja As Worksheet, rutaCarpeta As Variant

    rutaCarpeta = Application.FileDialog(msoFileDialogFolderPicker).Show

    If rutaCarpeta = -1 Then

        rutaCarpeta = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

        For Each hoja In Worksheets

            hoja.ExportAsFixedFormat Type:=xlTypePDF, _

                Filename:=rutaCarpeta & "\" & hoja.Name & ".pdf", _

                Quality:=xlQualityStandard, _

                IncludeDocProperties:=True, _

                IgnorePrintAreas:=False, _

                OpenAfterPublish:=False

        Next hoja

    End If

    Application.ScreenUpdating = True

    MsgBox " Todas las hojas han sido exportadas a PDF correctamente.", vbInformation, "Exportación finalizada"

End Sub