Check if a filter exists on a pivot table

Perhaps... (untested)

Dim pivotSht As Worksheet
Dim pivotTbl As PivotTable
Dim PTFilter As PivotField
Set pivotSht = Sheets("sheetname")
For Each pivotTbl In pivotSht.PivotTables
    With pivotTbl
        .ManualUpdate = True
        On Error Resume Next
        Set PTFilter = pivotTbl.PivotFields("tier")
        On Error GoTo 0
        If Not PTFilter Is Nothing Then
            With PTFilter
                .CurrentPage = "(All)"
                .PivotItems("1").Visible = True
                .PivotItems("2").Visible = True
                .PivotItems("NP").Visible = True
            End With
        End If
        Set PTFilter = Nothing
        .ManualUpdate = False
    End With
Next pivotTbl
Set pivotSht = Nothing