title: Why is this macro not printing PDFs correctly
body: <p>This is a follow up to a previous question about Print to PDF, I've got my macro to run without errors, However, it isn't doing exactly what I want. It appears to be plugging in each value from my drop down list into the correct Cell, but only printing the very last PDF.</p>
  
  <p>I want my macro to </p>
  
  <ol>
  <li>Plug the first dropdown value in the correct cell</li>
  <li>Let the formulas calc</li>
  <li>Print that page to PDF and save it to the right file path</li>
  <li>Repeat 1-3 for each value in the drop down list</li>
  </ol>
  
  <p>How do I adjust the Macro to do this? </p>
  
  <pre><code>Sub Print_To_PDF()
  Sheets("MS Wall Summary Daily View").Activate
      Dim vRws As Long, vRng As Range
      Dim d As Range, d8 As Range, Wst As Worksheet
      Dim fPathFile As String
  
  fPathFile = [NewStoreRollout]
  Set Wst = Worksheets("MS Wall Summary Daily View")
  Set d8 = Wst.Range("D8")
  
  With Wst
     vRws = .Cells(.Rows.Count, "A").End(xlUp).Row
      Set vRng = Range(.Cells(2, "A"), .Cells(vRws, "A"))
      .PageSetup.PrintArea = "$C$2:$M$116"
  
  End With
  For Each d In vRng.Cells
  
  d8 = d
  Wst.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPathFile, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  
  
  Next d
  
  MsgBox "Finished"
  End Sub
  </code></pre>
  
  <p>The file path is:
  <a href="https://i.stack.imgur.com/Sk4qa.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Sk4qa.png" alt="enter image description here"></a></p>
  
  <p>Where the value in P7 is linked to D8 on the other tab, where the drop down gets plugged in, so this should create a unique file path ever time the value in the drop down is changed.</p>