typo:
set rng = cell.Find("ABCD")
should be

set rng = cells.Find("ABCD")

but that was just a "placeholder" for the code you are using.

--
Regards,
Tom Ogilvy

"Tom Ogilvy" wrote in message
...
set rng = cell.Find("ABCD")
if not rng is nothing then
set rng = rng.Resize(1,5)
' or if you don't want the found cell
' set rng = rng.offset(0,1).Resize(1,5)
rng.Select
end if

--
Regards,
Tom Ogilvy

"Jordan" wrote in message
...
When you are in an excel file you can select multiple cells my clicking
in
the first cell and then dragging across or down to the last cell, or by
Control + Click. Is there a was for me to pick several cells from
inside
a
VBA project. The main problem is that I don't know which cells I want
to
select. The program runs though looking for matches to cells in the
first
column and then when it finds one it is suppose to select the next 5
cells
in
that row.
Thank you very much for the help,
Jordan