Error with Set statement while running vba code 1

[owentmoore]

Hi all,

I am getting error code "unable to get the find property of the range class" while executing the set statement in the following code. I can't see what the problem is with the code. Does anyone have any ideas?

Range("IV" & lRow1).Select

With ActiveSheet
    Do
        With ActiveSheet.Range("BE" & lRow1 & ":CG" & lRow1)

        If lRow1 < lRow2 Then

        Set strSearch = .Find(",", AFTER:=ActiveCell, LookIn:=xlValues, LookAt _
                :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
etc........

If I need to post the whole code let me know and I will....

Thanks
Owen

 

[PHV]

Are you sure the active cell is in the searched range ?
What happens if you simply omit the After named argument ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

Your ActiveCell is OUTSIDE the FIND range.

Skip,

_[red][/red]

 

[owentmoore]

Yep - I figured it out after reading PHV's reply.

Thanks guys.
Owen