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" & 57 + i).Value
    ThisWorkbook.SlicerCaches("Slicer1").SlicerItems(ID).Selected = True
Next i

Application.ScreenUpdating = True

End Sub