Excel-VBA to Export Excel Data into PDF File

!.....VBA program to Export (Activeworkbook & Activesheet) data into PDF File....!

Sub Export_to_PDF()
ActiveSheet.ExportAsFixedFormat xlTypePDF, "d:\abc1.pdf"
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "d:\abc2.pdf"
End Sub