VBA OLAP Pivot Filter

[tacitend]

I have this code:

ActiveWorkbook.SlicerCaches("Slicer_CurrentFinancialClassPayorGrouper").VisibleSlicerItemsList = _
    Array("[Table1].[CurrentFinancialClassPayorGrouper].&[AA]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[BCS]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[CINA]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[COMMERCIAL]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[EMB]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[MEARE]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[MERE]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[EDICAR]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[FAULT]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[ORD]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[UTED]", _
          "[Table1].[CurrentFinancialClassPayorGrouper].&[WORKP]")

which goes through the list and the one that I need filtered out "SELF-PAY" is not visible. However this list is subject to change so number of classes will go up or down depending on data. I think because its not a regular pivot table I cant use the normal methods to filter this data. Is there another way to do it, maybe using an array?