Get / Search Selected Pivot Items

Hi Everyone

This forum has a way of making me feel like anything is possible, but I might be reaching too far this time

Is there any way (using VBA) to get a list of selected pivot filter items only?

I need to be able to check if the user has selected any pivot items LIKE '%HAQ%' in the following 3 pivot fields.

Or perhaps a list isn't even necessary. Can the selected pivot items be searched for any containing 'HAQ' then produce and TRUE/FALSE result?

Tables filtered by:

Sub GetPivotFilters()

With ActiveSheet.PivotTables("PivotTable1")
    .PivotFields("Case Type")
    .PivotFields("Work Type")
    .PivotFields("Service")

End With

End Sub

Any help greatly appreciated
All the best
V