Key is to work from the bottom up. Either revise your formula using
findPREVIOUS within FINDNEXT or this.

Sub delallbut()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If UCase(Cells(i, "a")) < "USE START" Then Rows(i).Delete
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Stan" wrote in message
...
I'm wanting to find rows in a spreadsheet that contains the words "Use
Start"
and if not found, delete the rows that do not contain the text. Here's
what
I have but it doesn't work. Any help you can provide would be greatly
appreciated.

Sub cleanup2()
Dim rng As Range
Set rng = Range("A:A").Find(What:="Use Start", After:=ActiveCell,
LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If rng Is Nothing Then
Do
Row.Delete

Loop While rng Is Nothing
End If

End Sub