Excel 通过从VBA中的单元格中读取值来更改过滤器值

我有一个切片机的标签。其中一个切片器按月过滤数据。我试图用VBA编写代码，使用另一个选项卡上单元格中的值来更改切片器过滤器。在本例中，切片器从6变为12。我想在另一个选项卡的单元格G3中输入6，然后在VBA中使用该值定义应选择的过滤器

代码如下：

ActiveWorkbook.SlicerCaches("Slicer_Quote_Month").VisibleSlicerItemsList = _
        Array( _
        "[Table_OpenSQ].[Quote Month].&[6]")

如何将6更改为其他工作表/选项卡上单元格中指定的任何值？

使用此选项：

ActiveWorkbook.SlicerCaches("Slicer_Quote_Month").VisibleSlicerItemsList = _
        Array("[Table_OpenSQ].[Quote Month].&[" & Worksheets("Name").Range("B1").Value & "]")

---

将此[Table_OpenSQ].[Quote Month].&6]替换为[Table_OpenSQ].[Quote Month].&WorksheetsName.RangeA1.Value&]。。。根据工作表中的每个单元格更改A1，以及工作表的名称。。。如果答案有效，请接受@Angie