Como pasar a Pdf las hojas de varios libros de Excel

Prueba la siguiente macro, cambia C:\trabajo\varios\" por el nombre de tu carpeta.

Sub GenerarPdfs()
  Dim carpeta As String, sName As String, arch As Variant
  Dim wb As Workbook, sh As Worksheet
  '
  Application.ScreenUpdating = False
  carpeta = "C:\trabajo\varios\"
  arch = Dir(carpeta & "*.xls*")
  '
  On Error Resume Next
  Do While arch <> ""
    Set wb = Workbooks.Open(carpeta & arch)
    For Each sh In wb.Sheets
      sName = carpeta & Left(wb.Name, InStrRev(wb.Name, ".") - 1)
      sh.ExportAsFixedFormat xlTypePDF, sName & " " & sh.Name, 0, True, False, , , False
    Next
    wb.Close False
    arch = Dir()
  Loop
End Sub