Thank you,

EJE



On Sun, 13 Aug 2006 19:29:11 -0600, "Dave Patrick"
wrote:

Here's one way;

For r = 100 To 1 Step -1
If LCase(Trim(Cells(r, 1).Text)) = "abc" Then
Cells(r & "," & r).EntireRow.Delete
End If
Next