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
Join Our Telegram Group
Join Our WhatsApp Group
