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

by

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
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment