Код для циклического перемещения и сохранения полей сводной таблицы перестал работать ... есть идеи?

Question

Я пытаюсь перебрать элементы в поле сводной таблицы и сохранить pdf страницы для каждого.Я настроил и работал, но я настраивал его, и теперь он выдает ошибку, когда он достигает pf.CurrentPAge = pi.Value.Я вытаскиваю свои волосы, потому что не могу понять, что изменилось, и вдруг они перестали работать (в течение часа!).У кого-нибудь есть идеи?

Sub Test()

    Dim pt As PivotTable, pi As PivotItem, pf As PivotField
    Dim lLoop As Long
    Dim strExportPath As String

    Set pt = ActiveSheet.PivotTables(1)
    Set pf = pt.PivotFields("AU & Name")

    strExportPath = "C:\Users\nbelair\desktop"

    For Each pi In pf.PivotItems
        pf.CurrentPage = pi.Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strExportPath 
    & "\" & "test.pdf"
    Next pi

End Sub