VBA Code to select multiple Pivot Items

[strider1]

Hi Guys, I am trying to select multiple pivotitems in an OLAP cube pivot based on a dynamic list. The code is below. when I run the macro and loop is completed, one the last item on the list is selected. I want all the items on the list to be visible.
Was wondering if anyone can please fix the issue for me? I am not really too competent with VB, and hence might be doing some fundamental mistake.

Sub Test()

Set wb1 = ThisWorkbook
Set sh4 = wb1.Sheets("Control")
Sheets("Test").Select

ActiveSheet.PivotTables("Test").PivotFields( _
"[Product].[Model Group].[Model Group]").ClearAllFilters

u2 = sh4.Range("B50000").End(xlUp).Row


ActiveSheet.PivotTables("Test").CubeFields(66).EnableMultiplePageItems = True
For i = 2 To u2
zh = sh4.Cells(i, "B")


ActiveSheet.PivotTables("Test").PivotFields( _
"[Product].[Model Group].[Model Group]").CurrentPageName = _
"[Product].[Model Group].&[" & zh & "]"

Next i

End Sub