Установка слайсер к значению переменной с помощью VBA макросов (Excel)

Question

Это очень тривиальный вопрос для экспертов здесь :)

Я пытаюсь установить слайсер к значению переменной, используя макрос. Я объявил переменную String.

Dim ProductName As String 
'+Some code here to assign a value to ProductName (value of a cell) 
ActiveWorkbook.SlicerCaches("Slicer_Name1").VisibleSlicerItemsList = Array(_ 
      "[Team Project].[Project Node Name].&[ProductName]") 

Это, очевидно, не работает, и я не ожидал, что это, но я не могу понять, как я могу это рассматривать ProductName как переменную, а не буквальным.

Остальная часть кода в порядке, поскольку я могу успешно установить слайсер, указав имя продукта без использования переменной.

ActiveWorkbook.SlicerCaches("Slicer_Name1").VisibleSlicerItemsList = Array(_ 
      "[Team Project].[Project Node Name].&[Bedsheets]") 

Answer 1

Стик переменная из строки

Dim ProductName As String 
ActiveWorkbook.SlicerCaches("Slicer_Name1").VisibleSlicerItemsList = Array(_ 
      "[Team Project].[Project Node Name].&[" & ProductName & "]")