check column if it contains array value and add to array

I have an Array that is created from a listbox that shows the unique values from a comma delimited column. what i want to do is loop through the column and find any cells that contain any of the array strings in them and then add it to the array so it can be passed to an autofilter after. i'm at a loss at how to write it though. any help would be much appreciated.

Thanks,

Chris

        Dim MyArray As Variant
    ReDim MyArray(0)
    
    
    For i = 0 To ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            MyArray(UBound(MyArray)) = Me.ListBox1.List(i)
            ReDim Preserve MyArray(UBound(MyArray) + 1)
        End If
    Next i
    
        Set rng = Range(CatCol & "1:" & CatCol & LastRow)