Sub SaveWorkshetAsPDF() Dimws As Worksheet For Each ws In Worksheets ws.ExportAsFixedFormat _ xlTypePDF, _ "ENTER-FOLDER-NAME-HERE" & _ ws.Name & ".pdf" Next ws End Sub
Save Each Worksheet as a Single PDF. This code will simply save all the worksheets in a separate PDF file. You just need to change the folder name from the code.