Thanks Joel,
Nice solution - works perfectly!
D.


On 15 Aug, 16:40, Joel wrote:
Sub test2()
RowCount = 1
Do While Not IsEmpty(Cells(RowCount, "A"))
If Cells(RowCount, "A") = Cells(RowCount, "B") Then
Cells(RowCount, "A").EntireRow.Delete
Else
RowCount = RowCount + 1
End If
Loop
End Sub



"Del_F" wrote:
Hi,
I have 2 columns (A & B) of text data, and I want to delete every row
where the same term appears in both columns. So... for each row (n),
delete the row only if An and Bn match.
Any help much appreciated.
Thanks.- Hide quoted text -

- Show quoted text -