Not Exiting For Each Next Loop Correctly

I do not do Pivot Tables however

As I see it you are looking at entries in the "Status" Field of a Pivot Table.

So would an entry have a name?

    For Each pi In PTable.PivotFields("Status").PivotItems
        If pi= "" then
                pi.Visible = True
         Else
                pi.Visible = False
        EndIf
    Next

If I understand correctly, the code you posted is a working part of larger code, and your problem is with code below that loop? We'd have to see more of the code, and if possible a sample workbook.

Forgive me. I always have a reluctance to attach a sample because, like you said, it is part of a larger system of code. In this case, there is quite a lot, but I am able to manage breaking it down for just this issue. Please find it attached.

Since I did take it out of the larger code for this sample (this sub is called to another), when the loop runs through to the last item, which I don't know what it would be, shows that it is unable to get the PivotItems property of the PivotField class.

My debugging strategy would be to add a Stop statement immediately after the loop, then step through from there to see what the subsequent code is doing. Copied from the OP:

For Each pi In PTable.PivotFields("Status").PivotItems
        Select Case pi.Name
            Case Is = ""
                pi.Visible = True
            Case Else
                pi.Visible = False
        End Select
    Next pi
Stop