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

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