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)
Bookmarks