cell reference in powerpivot report filter

[Valentin]

Is it possible to use a cell reference in place of country name
"[Data].[Ship-to Country].&[Spain]")

Sub SelectCountry()
    ActiveSheet.PivotTables("Pt1").PivotFields( _
        "[Data].[Ship-to Country].[Ship-to Country]").VisibleItemsList = Array( _
        "[Data].[Ship-to Country].&[Spain]")
End Sub

 

[Jacob Barnett]

This is untested but pretty sure you could use something like:

Sub SelectCountry()

Dim theCountry as String

theCountry = range("A1").value
   
ActiveSheet.PivotTables("Pt1").PivotFields("[Data].[Ship-to Country].[Ship-to Country]").VisibleItemsList = Array("[Data].[Ship-to Country].&[" & theCountry & "]")

End Sub

 

[Valentin]

Thanks for the solution, it works