Loop through pivot table filter

[cogswel__cogs]

Hi,
I have a a pivot field in the filter area that I would like to loop through.
The below works when I am in row but in filter area it does not.
Would someone know what I need to change.

For i = 1 To ActiveSheet.PivotTables("PivotTable1").PivotFields("Department Rollup Level 7 (Division)").PivotItems.Count
If ActiveSheet.PivotTables("PivotTable1").PivotFields("Department Rollup Level 7 (Division)").PivotItems(i).Visible = True Then
cc(j) = ActiveSheet.PivotTables("PivotTable1").PivotFields("Department Rollup Level 7 (Division)").PivotItems(i).Value
j = j + 1
End If

 

[DanteAmor]

The code works for me, whether the field is in the row or in the area.

I would like to comment that you can simplify the code like this:

  With ActiveSheet.PivotTables("PivotTable1").PivotFields("Department Rollup Level 7 (Division)")
    For i = 1 To .PivotItems.Count
      If .PivotItems(i).Visible = True Then
        cc(j) = .PivotItems(i).Value
        j = j + 1
      End If
    Next
  End With