Change filter (Multiple items) in Power Pivot - VBA

[Kristensen11]

Hi MrExcel Members,

I have the following issue:
I have made a code, which filters a pivottable - it looks like this:

Worksheets("Top Suppliers by EUR").Activate
ActiveSheet.PivotTables("CreditsbyStyleTable").PivotFields( _
"[Dim_Purchase Office].[PURCHASE_OFFICE].[PURCHASE_OFFICE]").VisibleItemsList = Array( _
"[Dim_Purchase Office].[PURCHASE_OFFICE].&[All]")

Now i would like to select multiple items in the filter, insted of just "All". How should the code be written?

Thanks in advance !