autofilter.filter.lists vba help

Dim Criteria As Variant
Sub test()
Dim i As Long, x As Integer
Dim myRng As Range

'range of data, not including header row (data starts in row 2)
Set myRng = Range("A2", Range("C65536").End(xlUp))

'check each item in "Town" list, add to Criteria variable
With myRng.Columns(2)
    Criteria = .Cells(1).Value
    For i = 2 To .Rows.Count
        If TextExists(.Cells(i).Value) = False Then
            Criteria = Criteria & "," & .Cells(i).Value
        End If
    Next i
End With
    
'make Criteria an array
Criteria = Split(Criteria, ",")

With Rows("1:1")
    .AutoFilter 'turn on autofilter
    
    'loop through Criteria
    For x = LBound(Criteria) To UBound(Criteria)
        'filter "Town" column using criteria
        .AutoFilter field:=2, Criteria1:=Criteria(x)
    
        With myRng.SpecialCells(xlCellTypeVisible)
            'run code on visible cells within myRng
        End With
    Next x 'display filter results for next item

    .AutoFilter 'turn off autofilter
End With

End Sub


Private Function TextExists(currText)
'   Returns TRUE if text already exists in the Criteria variable _
(no duplicates should be in list)
Dim x As Variant
On Error Resume Next
x = WorksheetFunction.Search(currText, Criteria)
If Err = 0 Then TextExists = True Else TextExists = False
End Function