This moves donw from the activecell cell.
do until activecell.value = ""
ActiveCell.Offset(1, 0).Range("A1").Select
if activecell.value = "Text" then
Z= activecell.row
end if
loop
"scott" wrote:

I just need to move down column B to find the 1st cell containing a word.
Then I'll be able to get it's row and column.

Any help?