I have the macro below that works fine - but for the life of me I cannot get
it to loop without giving me an error. I need it look through all the text
that could exist in column "A" could be 20 rows could be 10,000.

If anyone could help I would appreciate it.

Thanks in advance,




Sub Delete()

Dim Range1 As Range
Dim Range2 As Range


Set Range1 = Cells.Find(what:="*** NO OPE") 'you can fill in the conditions
Set Range2 = Cells.Find(what:="*** NO SAL")

Range(Range1.EntireRow, Range2.EntireRow).Delete
'Then to move to the cell above resultsSet Range2 = Range2.Offset(0, 0)
'Clears cells




End Sub
--
Jake