Set SearchRange = Sheets("sheet1").Range("A1:A100")
set c = SearchRange(what:="ABC", lookin:=xlvalues,lookat:=xlwhole)
if c is nothing then
msgbox("Nothing found")
else
msgbox("Found at : " & c.address(external:=true))
end if


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=199159

http://www.thecodecage.com/forumz