I have created a pivot table in vba, and have applied a filter to the data. I need to loop through the rows which match the filter but i am only able to loop through all the data not just the filtered, using .visible is not working.

'Filter pivot to show sum greater than 100
ActiveSheet.PivotTables("PivotTable1").PivotFields("AccountID").PivotFilters. _
Add2 Type:=xlValueIsGreaterThan, DataField:=ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Sum of FinancialValue"), Value1:=100

Any sugegstions
Thanks
Echeb