Delete Rows containing a certain textstring

[Bukol]

I am using Excel 2000.
I have a spreadsheet with 55000 e-mail addresses in column A. In order to remove duplicates I used the following macro code:
Sub delete_duplicates()
rowx = 1
Do Until Cells(rowx + 1, 1).Value = ""
If UCase(Cells(rowx, 1).Value) = UCase(Cells(rowx + 1, 1).Value) Then
Cells(rowx + 1, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop
End Sub

Some of the addresses have an additional "REMOVED" added to the end of it, indicating the e-mail address is no longer valid.
How can I modify the above code to delete those rows as well.
Hans

[Al Chara]

Try the following code:

If Right(Cells(rowx, 1).Value, 7) = "REMOVED" Then Cells(rowx + 1, 1).EntireRow.Delete

[shades]

Hans, thanks for the macro. I have been looking for exactly that process for a long time.

Rich

[Bukol]

Al Chara,
tried it out, had to add a ")" after the word REMOVED, but it gives me the message:
"Runtime Error 13 - type mismatch"
What now, shoot myself?
Hans

[Al Chara]

The following code is what I am using and it works:

rowx = 1
If UCase(Right(Cells(rowx, 1).Value, 7)) = "REMOVED" Then
Cells(rowx, 1).EntireRow.Delete
End If

[Bukol]

Used your code exactly and it deleted every row except the first one wich contained REMOVED in it.
Dont worry, I had a backup.
Gonna shoot myself anyway.

Where is my mistake:
Sub delete_removed()
rowx = 1
Do Until Cells(rowx + 1, 1).Value = ""
If Right(Cells(rowx, 1).Value, 7 = "REMOVED") Then
Cells(rowx + 1, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop
End Sub

Hans

[Bukol]

Sub delete_removed()
rowx = 1
Sorry posted the old code.
Here is the "Killer Code"

Do Until Cells(rowx + 1, 1).Value = ""
If UCase(Right(Cells(rowx, 1).Value, 7)) = "REMOVED" Then
Cells(rowx + 1, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop
End Sub

[Al Chara]

The following code worked for me:

rowx = 1
Do Until Cells(rowx + 1, 1).Value = ""
If UCase(Right(Cells(rowx, 1).Value, 7)) = "REMOVED" Then
Cells(rowx, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop

I think you had "rowx+1" when you needed just "rowx"

[Bukol]

IT WORKS!
Shitty little +
Thanks
Hans