Delete all non Bolded rows VBA

Change this:

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

You're welcome. Thanks for the rep.


I should have explained: when you start at the top and go down, as you delete one or more rows, the remaining rows move up ... but the counter doesn't take that into account and the loop effectively leapfrogs over some rows that meet the criteria.

There are other ways to go about this. You could, for example, loop through from the top and "build a range" of cells that meet the criteria. Then, at the end, you delete all the rows in that range in one go. That can be more efficient and would be useful if you had a very large number of rows to process.

If the cells were coloured rather than bolded, you could use AutoFilter to list all the non-coloured rows, then select and delete all the visible rows (the non-bold rows)