VBA Excel - Select Multiple Slicer Items using a list in Column -

i looking vba select multiple items in slicer using list of names in column a.

i need loop through column , if matches slicer item select otherwise not select. here have been able find far not working:

with activeworkbook.slicercaches("slicername")  = 1 .sliceritems.count j = 1 .sliceritems.count      if .sliceritems(i).caption = worksheets("sheet1").range("a" & j).value       .sliceritems(i).selected = true       else       .sliceritems(i).selected = false       end if                          next j     next end