Need macro to change filter in pivot table based off a cell value

[tonyjyoo]

How can I do this?

 

[Worf]

An example:

Sub PTFilter()
Dim pt As PivotTable, pf As PivotField, i%
Set pt = ActiveSheet.PivotTables("pivottable1")
Set pf = pt.PivotFields("sales person")
pf.ClearAllFilters

' compare with cell D10

For i = 1 To pf.PivotItems.Count
    If pf.PivotItems(i).Name <> [d10] Then pf.PivotItems(i).Visible = 0
Next
End Sub