Run Time Error 91

[counihan3]

The following code is debugging on me and I don't understand why. Can anyone see the error.

For Each myRange In Worksheets("clean").Range("A2:A" & Worksheets("clean").Range("A" & Rows.Count).End(xlUp).Row)
        Selection.AutoFilter Field:=1, Criteria1:=myRange
        a = Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To a
            If Rows(i).Hidden = False Then Exit For
        Next i
        If a <> i Then
            colmax = Application.WorksheetFunction.Max(Range(Cells(i, 21), Cells(a, 21)))
            maxadd = ActiveSheet.Range(ActiveSheet.Cells(i, 21), ActiveSheet.Cells(a, 21)).Find(colmax).Address
            MsgBox maxadd
        End If
    Next myRange

 

[shg]

Might you tell us what line fails?

In this line the range reference is not qualified:

a = Range("A" & Rows.Count).End(xlUp).Row

 

[counihan3]

sorry, its the:

maxadd = ActiveSheet.Range(ActiveSheet.Cells(i, 21), ActiveSheet.Cells(a, 21)).Find(colmax).Address

 

[RoryA]

That means the value wasn't found and you can't return the Address of Nothing.

 

[counihan3]

I don't understand that because the value is there, why wouldn't find it?

 

[RoryA]

you probably need to specify the rest of the find arguments like Lookin, Lookat.

 

[shg]

And you have a mix of qualified and unqualified range references that should all be qualified.

 

[counihan3]

Now I am completely lost.