Почему этот макрос неправильно печатает PDF-файлы

Это продолжение предыдущего вопроса о печати в PDF. У меня есть макрос, который запускается без ошибок, однако он не делает именно то, что я хочу. Кажется, что каждое значение из моего раскрывающегося списка вставляется в правильную ячейку, но печатается только самый последний PDF-файл.

Я хочу, чтобы мой макрос

1. Вставьте первое раскрывающееся значение в правильную ячейку
2. Пусть вычисляются формулы
3. Распечатайте эту страницу в PDF и сохраните ее по правильному пути к файлу.
4. Повторите 1-3 для каждого значения в раскрывающемся списке.

Как настроить макрос для этого?

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

Путь к файлу:

Где значение в P7 связано с D8 на другой вкладке, где подключается раскрывающийся список, поэтому это должно создавать уникальный путь к файлу каждый раз, когда значение в раскрывающемся списке изменяется.