Generate PDF with all Sheets

Try This:

Sub Savepdf()
Application.ScreenUpdating = False
Dim fName As String
With ActiveWorkbook
    fName = "Your_PDF_File_Name"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            fName & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
Application.ScreenUpdating = True
End Sub

Put this code in Standard Module.


-chinraj-

Hi chinraj,

Thank you very much! It worked perfectly