dim rng as range
dim findVal as string
set rng = worksheets(1).cells.find(what:=findVal,lookat:=xlw hole)
msgbox rng.address
range("a1")=rng.address


--
anusha2525
------------------------------------------------------------------------
anusha2525's Profile: http://www.excelforum.com/member.php...o&userid=35408
View this thread: http://www.excelforum.com/showthread...hreadid=551771