Filtering Slicer based on cell value

[rcarmichael]

Good morning all,
I have already searched on this and other forums for where I'm going wrong, but nothing I've found has helped...
I am trying to filter a year-based slicer from the values in two cells. The code I've got so far works if &[Year1] is changed to &[2022] etc., but trying to pull in the actual cell value from A3 or A6 respectively throws an error.
The code I have so far is:

Sub Sales_Overview()
'
' Sales_Overview Macro
'

'
Dim Year1 As Long
Dim Year2 As Long

Year1 = Worksheets("Sales Overview").Cells(3, "A").Value
Year2 = Worksheets("Sales Overview").Cells(6, "A").Value


ActiveWorkbook.SlicerCaches("Slicer_Calendar").VisibleSlicerItemsList = Array( _
_
"[Date].[Calendar].[Year].&[Year1]", "[Date].[Calendar].[Year].&[Year2]")

End Sub

Any assistance is greatly appreciated,
Sincere regards,
Ryan

 

[rcarmichael]

In addition, it doesn't NEED to be the slicer, it can instead be the OLAP Pivot Table directly:

    ActiveSheet.PivotTables("Pivot").PivotFields("[Date].[Year].[Year]"). _
        VisibleItemsList = Array("[Date].[Year].&[[COLOR=rgb(226, 80, 65)]2021[/COLOR]]", "[Date].[Year].&[[COLOR=rgb(226, 80, 65)]2022[/COLOR]]")

But the principle is the same... how do I get the Year# Variables in there?
Sincere regards,
Ryan