Pivot filter property to uncheck all values between 1600 to 1699

[ydw_10]

I need to filter out a pivot table where I don't want to select values starting with 16**

Recorded macro code:

With ActiveSheet.PivotTables("PivotTable4").PivotFields("OPUS CC")
.PivotItems("1650").Visible = False
.PivotItems("1651").Visible = False
.PivotItems("1652").Visible = False
.PivotItems("1653").Visible = False
.PivotItems("1654").Visible = False
End With

But it won't work because my values are starting with 16 & changes anything between 1600 to 1699