Excel - Macro VBA para exportar a pdf un Libro "A" desde otro Libro "B"

Sub CreaPDFhojas()

Dim Hoja As Worksheet

Dim NombreArchivo, RutaArchivo As String

Dim LibroResultados As Workbook

Dim Ruta_LibroResultados As String

Ruta_LibroResultados = "C:\Users\diego\Desktop\PracticandoMATLAB\TFM_Version1\TFMVersion1"

' Ruta de ubicación del libro de resultados, incluyendo al final el nombre de dicho libro de resultados (En este caso, TFMVersión1)

Set LibroResultados = Workbooks.Open(Ruta_LibroResultados)

Application.ScreenUpdating = False

    For Each Hoja In Worksheets

    NombreArchivo = Hoja.Name

    RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"

    Hoja.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _

    Quality:=xlQualityStandard, IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, OpenAfterPublish:=True

    Next Hoja

LibroResultados.Close False    'Cerramos el libro de resultados sin guardar cambios

Set LibroResultados = Nothing

End Sub

Sub CreaPDFLibro()

Dim NombreArchivo, RutaArchivo As String

Dim LibroResultados As Workbook

Dim Ruta_LibroResultados As String

Ruta_LibroResultados = "C:\Users\diego\Desktop\PracticandoMATLAB\TFM_Version1\TFMVersion1"

' Ruta de ubicación del libro de resultados, incluyendo al final el nombre de dicho libro de resultados (En este caso, TFMVersión1)

Set LibroResultados = Workbooks.Open(Ruta_LibroResultados)

Application.ScreenUpdating = False

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

       RutaArchivo  & "\LibroPDF.pdf", Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=False

LibroResultados.Close False 'Cerramos el libro de resultados sin guardar cambios

Set LibroResultados = Nothing