Trying to set a pivot field to a subset of values listed in range of cells

[maverick502]

I am trying to create a macro that when run will deselect non matching
values in a pivot field. I want the macro to look at a range I have in
another sheet and deselect the values that do not match in the pivot
field and cell range. The code is below. I know the error lies in my
"not equal" comparison of the pivotfield to my cell range, but I do not
know how to fix it. I also have the cell range "L2:L63" named
"MDS_MIX", but also could not get that reference to work. Thanks for
the help.

Public Sub 24_MIX_Click()
On Error GoTo X
Application.ScreenUpdating = False

Dim MyMDS As Variant
Dim MyValue As Variant
Dim MyArray() As Variant
Dim MyList() As Variant

MyList = Sheets("Converters").Range("L2:L63")
MyValue = Sheets("Converters").Range("O1")


For i = 1 To MyValue
If
ActiveSheet.PivotTables("PivotTable1").PivotFields("MDS").PivotItems(i).Value
<> MyList Then

ActiveSheet.PivotTables("PivotTable1").PivotFields("MDS").PivotItems(i).Visible
= False
End If
Next i

Application.ScreenUpdating = True

X:
AddAll_MDS_Click
Application.ScreenUpdating = True
End Sub