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