excel - VBAピボットItem.Nameが間違った値を引っ張っている

Question

このコードを作成したところ、フィルター処理された最初の 4 つの項目で機能します。5番目に機能しなくなります。また、間違った名前を引っ張っています。PIVOT テーブルを更新すると、「Ft Lauderdale, FL」と表示されますが、VBA デバッガーがオフになり、piOffice.Name にカーソルを合わせると、「Ft Lauderdal, FL」と表示されます。修正前の古い名前です。また、スペースがないようにさまざまなバリエーションを試しました (例: Ft_Lauderdale,FL)。ランタイム エラー コード 5 が表示されるたびに、piOffice.Name にカーソルを合わせると「Ft Lauderdal, FL」と表示されます。

Sub Deferred_Rent_To_PDF()

Dim strWorkbook As String
Dim strWorksheet As String
Dim strPivotTable As String
Dim pdfFilename As Variant
Dim strPivotFilter As String
Dim strDocName As String
Dim ptDeferredRent As pivotTable
Dim piOffice As PivotItem

strWorkbook = "Schedule of Leases - Beta"
strWorksheet = "Deferred"
strPivotTable = "DeferredRent"

Workbooks(strWorkbook).Activate
Set ptDeferredRent = Worksheets(strWorksheet).PivotTables(strPivotTable)

    For Each piOffice In ptDeferredRent.PageFields("Office").PivotItems
        ptDeferredRent.PageFields("Office").CurrentPage = piOffice.Name   '<---------- ISSUE IS HERE
        strPivotFilter = Worksheets(strWorksheet).Range("H1")
        strDocName = "Deferred Rent - " & strPivotFilter & " - " & Format(Date, "mm-dd-yy")
        pdfFilename = Application.GetSaveAsFilename(InitialFileName:=strDocName, _
            FileFilter:="PDF, *.pdf", Title:="Save As PDF")

            ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=pdfFilename, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=False, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False

    Next piOffice

End Sub