Find a specific string in a cell

Sub sWords()
Range("E1").Select

Do While Len(ActiveCell.Value) <> 0
str1 = InStr(1, ActiveCell.Value, "New")
str2 = InStr(1, ActiveCell.Value, "Account")
If str1 >= 1 Or str2 >= 1 Then
ActiveCell.Offset(1, 0).Select
Else
Selection.Delete Shift:=xlUp
End If
Loop

End Sub

That should do it.

Cheers
Joe