Run-time error '1004': Application-defined or object-defined error

[Damian37]

Hi,
I'm trying to select multiple criteria within the same column from my data set. I continue to receive a 1004 Run-time error for the following code. When I select debug the following line highlights:
Sheets("Report Data").Range("E1:E").AutoFilter Field:=5, Criteria1:=criteriaArray, _
Operator:=xlFilterValues
I've been unable to figure out how to properly utilize an array within my code:

Sub FilterMultipleCriteria()
'
 '   On Error Resume Next
    
' Filter by Multiple Criteria
    Dim ws As Worksheet
    Dim FilterRange As Range
    Dim criteriaArray As Variant
    
    Set ws = ThisWorkbook.Sheets("Report Data")
    Set FilterRange = ws.Range("E1:E" & ws.Cells(ws.Rows.Count, "E").End(xlUp).Row)
    
        criteriaArray = Array("High", "Moderate-High")
    
    With ws
        .AutoFilterMode = False
        Sheets("Report Data").Range("E1:E").AutoFilter Field:=5, Criteria1:=criteriaArray, _
        Operator:=xlFilterValues
        End With
    
'    If Err.Numer <> 0 Then
 '       MsgBox "Error: " & _
'Err.Description
 '   End If
        
    End Sub

Any help is greatly appreciated! Thank you so much.
D.

 

[rollis13]

Change the code line:

Sheets("Report Data").Range("E1:E").AutoFilter Field:=5, Criteria1:=criteriaArray, Operator:=xlFilterValues

to:

FilterRange.AutoFilter Field:=1, Criteria1:=criteriaArray, Operator:=xlFilterValues

 

[Damian37]

Change the code line:

Sheets("Report Data").Range("E1:E").AutoFilter Field:=5, Criteria1:=criteriaArray, Operator:=xlFilterValues

to:

FilterRange.AutoFilter Field:=1, Criteria1:=criteriaArray, Operator:=xlFilterValues

Thanks Rollis13,
I tried that, but received the same message. I'm sure it has something to do with the way I'm setting the criteriaArray that is causing the code not to recognize the values. I just haven't been able to figure it out yet.
D.

 

[Damian37]

Change the code line:

Sheets("Report Data").Range("E1:E").AutoFilter Field:=5, Criteria1:=criteriaArray, Operator:=xlFilterValues

to:

FilterRange.AutoFilter Field:=1, Criteria1:=criteriaArray, Operator:=xlFilterValues

I take it back. I didn't realize the FilterRange line was identifying the Field so I was using the value 5, because that's the column number for E. Once I set the Field to value = 1 the code worked like a charm. Thank you very much for your help!

D.

 

[rollis13]

Once I set the Field to value = 1 the code worked like a charm.

I'm sure it was what I wrote in post #2 .
Thanks for the positive feedback, glad having been of some help.