title: Excel workbook to Save As .pdf
body: <p>I am working on a folder that includes 20+ Excel files and want to open each one of them, make some page setup changes, and finally save as .pdf . I am pretty much covered all the topics except saving as a .pdf .</p>
  
  <p>I need to save the file as the same name as the Excel workbook. in the same folder.</p>
  
  <p>Following code does the job except I need to give the name and select the folder to save it:</p>
  
  <pre><code>fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")
  ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True
  </code></pre>
  
  <p>Source : <a href="http://www.mrexcel.com/forum/excel-questions/651621-save-pdf-macro.html#post3232801" rel="nofollow">http://www.mrexcel.com/forum/excel-questions/651621-save-pdf-macro.html#post3232801</a></p>
  
  <p>Can some one help me to optimize this to achieve my target?</p>