Assuming that the found cell is i n the variable rng

rng.Resize(10,1).entirerow.delete

adjust the 10 to your N

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Harlan Messinger" wrote in message
...
I've used automation with Excel before, and each time I do, it seems to be
so complicated to accomplish conceptually basic things. In this case, I
want
to be able to find each cell on a worksheet that contains a particular
text
string (which I know how to do) and, for each one, to delete the row
containing that cell and the next N rows as well. Is there a simple way to
do this?

--
Harlan Messinger
Remove the first dot from my e-mail address.
Veuillez ôter le premier point de mon adresse de courriel.