if a cell contains text then delete the row

Hi
I am trying to delete rows if a column contains text.
Basically if column O contains text (this could be anything) then delete the whole row. This should then just leave the rows that have a blank cell in column O

Thanks in advance

Hi

I have tried this but it bring sback the error 'Runtime error 424 Object Required'. When I hover over the code it tells me that r is nothing.

what am I missing?!

I do not know what do you mean by texting with out seeing your data, but if you want to delete non black cells

Please Login or Register  to view this content.

I think AB33 has good alternate code. The problem you are having with my code is that it must be placed in the code module for the sheet you want to work on; I am guessing you put it in a Module. AB33's code will work in a Module and will work (I have not tested it) on whatever the ActiveSheet happens to be.