Peter
Is this what you are after
r = Range("B3:B1000").Find( _
What:=IDs(Element), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Ro
--
mudrake
-----------------------------------------------------------------------
mudraker's Profile:
http://www.excelforum.com/member.php...nfo&userid=247
View this thread:
http://www.excelforum.com/showthread.php?threadid=27722