loop each item in PT filter

[MarkCBB]

HI there VBA pros,

I need some help completing this code, I have most of it done but I am getting stuck with an error.

I am trying to execute some code for each PI in the filter list, however I am getting stuck. below is the code that i have so far.

Sub mytest()

    With Sheets("CALCULATIONS").PivotTables("PivotTable1").PivotFields("CUSTOMER")
    For Each Pi In .PivotItems
    Pi.Visible = True
           If PivotItems <> Pi.Value = Pi.Visible = False Then
            'run this code
        End If
    Next Pi
         
    End With

End Sub

 

[Jon von der Heyden]

Do you mean you want to filter a field by a particular value? CAn you explain in words what you want to do?

 

[MarkCBB]

HI there Jon,
I want to filter by each item in the filter list and then run some code then move onto the next item in the list
i.e. if the are 5 items in the pivot list, the first 1 is selected and the rest are deselected, then some code runs, then the next one is selected and the rest are deslected including the first 1 etc.