Macro help

[Alvaroro84]

Im using this code I found here to get rid of these criteria AZ,ME,CA,NY. in column "I" I however cant get it to work. can any one provide me with some assistance

   'apply a filter, row 1 contains my titles
    Range("A1:L1").Select
    Selection.AutoFilter
 
    Dim filterCriteria() As String
    Dim count As Long, secondArray As Variant
    Dim L As Long, c As String, k As String, rowNumb As Long
   
    secondArray = Array("AZ", " ME", " CA", " NY")
   
    c = 0
    k = 0
    count = 0
    rowNumb = ActiveSheet.Range(ActiveSheet.Range("I2"), ActiveSheet.Range("I1").End(xlDown)).Rows.count
   
    For L = 1 To rowNumb
        c = ActiveSheet.Range("I1").Offset(L)
        If c <> k Then
            'check the current activity type against the array of types we don’t want. If it isn’t in the array we add it to an array that will be used as the filter criteria
            If UBound(Filter(secondArray, c)) = -1 Then
                ReDim Preserve filterCriteria(0 To count)
                filterCriteria(count) = c
                count = count + 1
            End If
 
            k = c
        End If
    Next
   
    With ActiveSheet
        .Range(.Range("A1"), .Range("A1").End(xlDown).Offset(0, 11)).AutoFilter Field:=9, Criteria1:=filterCriteria, Operator:=xlFilterValues
    End With

 

[Fluff]

In that case you need to get rid of the spaces in this array

secondArray = Array("AZ", " ME", " CA", " NY")

 

[Alvaroro84]

I initially thought the same thing and that's what I did and it still having the same issue

 

[Logit]

Are you able to post your workbook for review ? You'll need to use a CLOUD website like DropBox or similar, then provide the link here.

 

[Alvaroro84]

I found a way around it. since my regular filter can find it i do a find and replace

 

[Logit]

Ok