Use Cell Value as Variable in Module

[WolfX2]

Hi Everyone,

I'm sort of a VBA n00b, so please bear with me. I'll even just take a nudge in the right direction.

Essentially i'm trying to automate changing a slicer value based on a cell value. I'll do this by initiating macro1 as follows:

Sub Macro1()
ActiveWorkbook.SlicerCaches("Slicer_Locations").VisibleSlicerItemsList = Array _
        ( _
        "[Locations].[Location by Division].[Location].&[[B]X[/B]]")
End Sub

Essentially if cell A1 is 10, i want 10 to appear in place of X.

Any help is super appreciated.

Thanks!

 

[RoryA]

The basic gist is:

Sub Macro1()
ActiveWorkbook.SlicerCaches("Slicer_Locations").VisibleSlicerItemsList = Array _
        ( _
        "[Locations].[Location by Division].[Location].&[" & Range("A1").Value & "]")
End Sub