title: VBA Save as PDF with Filename as Cell Value
body: <p>I am trying to save four sheets into a single PDF.  The code below is what I have so far.  When I use the ActiveSheet.Name command in the file name it works, however when I change it to a range for a cell that is dynamic it no longer works and errors out.  Any help would be appreciated.</p>
  
  <pre><code>Sheets(Array("Dashboard Pg 1", "Dashboard Pg 2", "Dashboard Pg 3", _
      "Dashboard Pg 4")).Select
  Sheets("Dashboard Pg 1").Activate
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "C:\Users\Allen\Desktop\Projects\" &amp; ActiveSheet.Range("K17").Value &amp; ".pdf" _
      , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
      :=False, OpenAfterPublish:=False
  Sheets("Summary").Select
  </code></pre>