Slicer to populate based on range of cells

[jwwoodall3]

I currently have a slicer connected to multiple pivot tables.
Based on other posts in this forum, I have cobbled together the ability to update the slicer on that slicer based on a cell value.
Is it possible to update the slicer based on a range of values?

Here is what I have:

​

Dim SFweek As String​

SFweek = Sheets("LookupSheet").Range("E18")​

​

​

Dim item As SlicerItem​

​

​

For Each item In ThisWorkbook.SlicerCaches("Slicer_Week").SlicerItems​

If item.Name = SFweek Then​

item.Selected = True​

Else​

item.Selected = False​

End If​

Next item​

I need E18 to change to a range (E18:J18 in this case)
(I am running Excel 2010 if that helps.)

Thanks in advance!!!