Error 5 VBA code PivotItem Loop

[PaulMental]

Greetings,
I am having trouble on what should be an easy code.

Sub Loop()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem


Set pt = Sheet9.PivotTables("AC")
Set pf = pt.PageFields("Name")


For Each pi In pf.PivotItems
    pf.CurrentPage = pi.Value
Next pi


End Sub

I get a run-time error 5 invalid procedure call or argument.

I am new to VBA and wondering if I might be missing something. I feel this may be an easy problem to fix. Any help would be appreciated. Thank you.

 

[PaulMental]

I forgot to mention: the error occurs on the line:

pf.currentpage = pi.value

I've checked that both the pivot table and the pagefield commands work. When I use a range of cells instead of "pi", the loop works.