Coding Help

  • Thread starter Thread starter Stan
  • Start date Start date
S

Stan

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
 
Back
Top