Hi
one way: try something like
sub foo()
dim rng as range
dim cell as range
set rng = activesheet.range("A1:A100")
for each cell in rng
if instr (cell.value,"xyz") then
msgbox cell.address
cell.select
exit sub
end if
next
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


I need to loop down a range and stop when a cell contains the text
"xyz" somewhere within a cell.

Thanks


---
Message posted from http://www.ExcelForum.com/