Code:
Dim PT As PivotTable
Dim PF As PivotField
Dim PI As PivotItem
Set PT = ActiveSheet.PivotTables("PivotTable1")
Set PF = PT.PivotFields("booking point")
For Each PI In PF.PivotItems
if pi.name like "X*" then
pi.visible = false
Next PI
End Sub
so it gets rid of all the ones except for one ..basically the positions should always be in booking point that starts with "x" so the purpose of this is to show the analyst potential positions that are incorrectly booked under a booking point not starting with "x"