Exportar Cada Aba da Planilha Excel como PDF
Código da Macro:
Sub ExportarPDF()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Visible Then
ws.Select
nm = ws.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next ws
End Sub