Need multiple Excel 2007 worksheets within 1 workbook to convert to 1 pdf per worksheet

[jlg36259]

I have an Excel 2007 workbook with several worksheets. I need to easily create a PDF for each worksheet to email to coworkers. I am new to Macros so if anyone has one already written to do this and would post it, I would really appreciate it.

[patel45]

Please Login or Register  to view this content.

[jlg36259]

Thank you for your quick response. It starts to run but then gets caught up. Can you help?



Sub export_To_Pdf()
Application.ScreenUpdating = False
strFilePath = "C:\test\" ' <<<<<<<<<<<< to be changed
On Error Resume Next
For j = 1 To 2
strPdfName = Sheets(j).Name
Sheets(j).Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePath & strPdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.Close (False)
Next
Application.ScreenUpdating = True
End Sub

[jlg36259]

I am an idiot! I figured it out. I really appreciate your help!