I created a loop that does run correctly, except that anything that comes after does not run. Am I missing an exit point?

    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