Speed up VBA Sub

I've got some VBA Subs I use to frequently fix millions of rows of excel data. They all work very well and are very fast and the same speed to the ***** eye. However, one of the Subs (badSub) processes MUCH slower than the others. How can I change "badSub" to be as fast as the "GoodSubs". I'm not interested in code like that I could apply to all the Subs like:

Please Login or Register  to view this content.

I'm interested in what part of the "badSub" code is causing it to behave much slower than the others.

Please Login or Register  to view this content.

Hi ShawnWeber,

A quick look shows that the set RangeFound in badsub is inside the loop whereas it is outside the loop in the three example goodsubs, don't know if that will make a difference or not and I didnt try to fully understand the code so maybe for logical reasons it needs to be in the loop.

is the amount of rows to be deleted the same in each instance?

just a couple of observations
Jmac

Hi ShawnWeber,

A quick look shows that the set RangeFound in badsub is inside the loop whereas it is outside the loop in the three example goodsubs, don't know if that will make a difference or not and I didnt try to fully understand the code so maybe for logical reasons it needs to be in the loop.

is the amount of rows to be deleted the same in each instance?

just a couple of observations
Jmac

@ MarvinP all four subs use .select and the three goodSubs run very fast

This line would be slow

Please Login or Register  to view this content.

I am not even sure it works. The loop might be infinite.
Imagine you have selected the entire column and the code check for each line of the column.