Autofilter not working after code split

[darekknox]

Hi All,

I have a problem I am working on a huge macro and had to split some of it into separate macros due to the "Too large" error. The following is working when it's a part of the main code. But when I include it as a separate macro it crashes on the line where it refers to another sheet. Any ideas how to solve this?

   Sheets("ABCDE").Activate
    Rows("5:5").Select
 
    Selection.AutoFilter
    ActiveSheet.Range("$A$5:$M5").AutoFilter Field:=12, Criteria1:="<>"
    ActiveSheet.Range("$A$5:$M5").AutoFilter Field:=10, Criteria1:=Worksheets("johnny").Cells(i, 10).Value
     ActiveSheet.Range("$A$5:$M$792").AutoFilter Field:=6, Criteria1:=">0", _
        Operator:=xlAnd

 

[steve the fish]

What error and on which line? If its to do with the sheets then you probably need to qualify them such as Workbooks("Book3").Sheets("ABCDE") etc.

 

[darekknox]

Hi, thanks for quick reply.

It is Runtime Error '1004'. Application-defined or object efined error.

Line is

ActiveSheet.Range("$A$5:$M5").AutoFilter Field:=10, Criteria1:=Worksheets("johnny").Cells(i, 10).Value

 

[steve the fish]

What is i equal to when this line runs?