pivot update range of values

[Shiro26]

Hello

I have a pivot that I call "pvt" and a field in which I paste my criteria and by clicking on a button it refreshes the pivot for the specific ID.
However, this is possible for the IDs one by one.
How could I modify the code in order to take more than one value, lets say in a named range in order to copy paste a set of ID?

Sub pvtRecRDupdate_click()
Dim wbk As Workbook
Dim wspvt As Worksheet
Dim SnapID As String, SnapPT1 As String
Set wbk = ThisWorkbook
Set wspvt = wbk.ActiveSheet
Application.ScreenUpdating = False
SnapID = wspvt.Cells(5, 1).Value
SnapPT1 = "pvt"
    With wspvt.PivotTables(SnapPT1).PivotFields("ID")
            .ClearAllFilters
            .PivotFilters.Add Type:=xlCaptionEquals, Value1:=SnapID
    End With
Application.ScreenUpdating = True
End Sub

Thank you in advance for your help

Kind Regards,

Shiro