try this
Sub findxyz()
x = Range("d7:d12").Find("xyz", lookat:=xlPart).Address
MsgBox x
End Sub

sub gotoxyz
Range(Range("d7:d12").Find("xyz", lookat:=xlPart).Address).Select
end sub
--
Don Guillett
SalesAid Software

"simoncohen " wrote in message
...
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/