title: VBA Deselect all and then Select Values based on list in Slicer
body: <p>I am trying to deselect all pre-set values in a slicer and then select values based on a list that will be updated on a daily basis. I managed to write the following code but it is running very very slow since my pre-set list was long. Is there a way to make the following run faster? </p>
  
  <pre><code>Sub cmdTop10PrioritySlicer()
  
  Dim i As Integer
  Dim MemberID As String
  
  Application.ScreenUpdating = False
  
  ThisWorkbook.SlicerCaches("Slicer1").ClearManualFilter
  
  'Deselect all prior set values
  For Each slc In ThisWorkbook.SlicerCaches("Slicer1").SlicerItems
      slc.Selected = False
  Next slc
  
  'Select values in Slicer based on Top 10 Priority List
  For i = 1 To 10
      ID = ThisWorkbook.Worksheets("Summary").Range("A" &amp; 57 + i).Value
      ThisWorkbook.SlicerCaches("Slicer1").SlicerItems(ID).Selected = True
  Next i
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>