run time error 91

[rjplante]

I have two worksheets and the internal cell reference is identical for each worksheet. When I run the macro and I am on Sheet A to start with, everything works fine. When I am on Sheet B, the macro crashes on the AFilterCell line and gives me a Runtim91 error. What is causing this to fail. If I change the line to Set AFilterCell = bla bla bla then I get an error 424. Help? What do I need to do to fix this issue?

Dim IFilterCell, AFilterCell As Range


Application.ScreenUpdating = False

If Range("EE1").Value = "Sheet A" Then


    IFilterCell = Split(Sheets("Sheet A").Range("EG2").Value, ",")


    Sheets("Sheet A").Select  
    '   Filter for Selected tools (Column T = 20)
    ActiveSheet.Range("$A$2:$AL2" & lastrow).AutoFilter Field:=20, Criteria1:=IFilterCell, Operator:=xlFilterValues

ElseIf Range("EE1").Value = "Sheet B" Then


    AFilterCell = Split(Sheets("Sheet B").Range("EG2").Value, ",")


    Sheets("Sheet A").Select  
    '   Filter for Selected tools (Column E = 5)
    ActiveSheet.Range("$A$2:$AF2" & lastrow).AutoFilter Field:=5, Criteria1:=AFilterCell, Operator:=xlFilterValues

End If

 

[Kenneth Hobson]

For the error:

'Dim IFilterCell, AFilterCell As Range
Dim IFilterCell, AFilterCell

Split() returns a string array but variant is ok too. Range is not ok.

 

[rjplante]

I changed the line to read "Dim IFilterCell, AFilterCell As String" and now I have a file type mismatch Run time error 13.

 

[Fluff]

Either use what @Kenneth Hobson showed or use

Dim IFilterCell As Variant, AFilterCell As Variant

They're effectively the same