VBA Code to Save Each Worksheet as a Single PDF in Excel

VBA code that you can use to save each worksheet as a separate PDF file in Excel.

VBA Code:

Sub SaveWorksheetsAsPDF()
    Dim ws As Worksheet
    Dim filePath As String
    
    ' Set the folder path to save the PDF files
    filePath = "C:\Path\To\Save\PDFs\" ' Change the path to your desired folder
    
    ' Create the folder if it doesn't exist
    If Dir(filePath, vbDirectory) = "" Then
        MkDir filePath
    End If
    
    ' Loop through each worksheet in the workbook
    For Each ws In ThisWorkbook.Worksheets
        ' Save the worksheet as a PDF file
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath & ws.Name & ".pdf", Quality:=xlQualityStandard
    Next ws
    
    ' Inform the user that the PDF files have been saved
    MsgBox "Each worksheet has been saved as a separate PDF file!"
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment