VBA code for "Save as PDF"

I have developed a reporting tool in excel, where I need series of worksheets
to be saved as PDF one after another through a click of button (VBA

I need VBA code to save my print-area as PDF where it only once asks "where
to save" and then saves current series of PDFs. It should take file name from
a fixed cell too.