Run Time error 428 Help

[currybai]

I get an error here:

For Each pi In Worksheets("Pivot").PivotTables("pivottable1").PivotFields("Name of Person")

Please help

Sub macro_214431()

Dim pt As PivotTables
Dim pi As PivotItems
Dim pf As PivotFields

Worksheets("Pivot").PivotTables("pivottable1").ManualUpdate = True

     With Worksheets("Pivot").PivotTables("pivottable1").PivotFields("name of Person")
         For Each pi In Worksheets("Pivot").PivotTables("pivottable1").PivotFields("Name of Person")
            If pi(i).Visible = True Then
                ActiveSheet.Rows("1:2").Insert Shift:=xlDown
                Cells(1, 1).Value = "Name:" & "," & pi(i)
                Cells(1, 1).FontSize = 13
                Cells(1, 1).Font.Bold = True
                Range("A1:d1").HorizontalAlignment = xlCenterAcrossSelection
                .PrintTitleRows = "$1:$6"
                
                End If

                Next pi

End With

 

[currybai]

bump

 

[Norie]

Please tell us what the error message is and what you are trying to do.

 

[currybai]

Please tell us what the error message is and what you are trying to do.

I get a runtime 428 error: Object does not support this property of method

I am trying to take the selected report filter in the Name of Person field to appear as the title ont he first cell in a1. So if someone chooses bob, christina, then their names would appear on top.

 

[Norie]

I think you might want to lose the ("Name of person") part.

Or add something to it, Pivotfields(Item) returns a PivotField object which has various properties.

 

[currybai]

I think you might want to lose the ("Name of person") part.

Or add something to it, Pivotfields(Item) returns a PivotField object which has various properties.

still the same error, but thank you