<div>
Does it have to be VBA?<br />
<br />
A helper column with a count of occurences of the word in cells above will show which to delete.<br />
<br />
Assuming column C is available enter in C2<br />
<br />
=COUNTIF(B$2:B2,&quot;SYSTEMICS<wbr />&quot;)<br />
<br />
Copy down for extent of data.<br />
<br />
AutoFilter on this column for greater than zero and delete the rows showing in the filter.<br />
<br />
Cheers<br />

</div>


Does it have to be VBA?

A helper column with a count of occurences of the word in cells above will show which to delete.

Assuming column C is available enter in C2

=COUNTIF(B$2:B2,"SYSTEMICS")

Copy down for extent of data.

AutoFilter on this column for greater than zero and delete the rows showing in the filter.

Cheers


test-macro-.xls

<div>
Hi robhenson, i needed vba code for this as i need it to run as a procedure<br />
<br />
Thanks Zwiekhorst <br />
<br />
Cheers,<br />
Seamus
</div>


Hi robhenson, i needed vba code for this as i need it to run as a procedure

Thanks Zwiekhorst

Cheers,
Seamus

<div>
<div class="content wysiwyg-content">
I have a spreadsheet, which has a key word called &quot;SYSTEMICS&quot; (Highlighted Yellow)<br />
<br />
I want to be able to delete all rows after that word is found.<br />
<br />
I have attached an example, it is always in ColB<br />
<br />
Thanks<br />
Seamus<br />
<a href="https://filedb.experts-exchange.com/incoming/2011/05_w20/459018/test.xls" target="_blank" class="file-inline" title="ss (24 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>test.xls</a>
</div>
</div>


test.xls

I have a spreadsheet, which has a key word called "SYSTEMICS" (Highlighted Yellow)

I want to be able to delete all rows after that word is found.

I have attached an example, it is always in ColB

Thanks
Seamus

Sub to delete rows  after key word

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.