Many thanks to you both for the excellent reply
Really appreciate your help
regards

"Tom Ogilvy" wrote:

Delete or clear the cell?

Sub aA()
Dim cell As Range, res As Variant

For Each cell In Range("A1:A15")
res = Application.Match(cell, Range("B1:B15"), 0)
If Not IsError(res) Then
Cells(res, 2).ClearContents
cell.ClearContents
End If
Next

' if you want to delete then do

Range("A1:B15").SpecialCells(xlBlanks).Delete shift:=xlShiftUp


End Sub

--
Regards,
Tom Ogilvy


"Anthony" wrote in message
...
Hi all,

I would like some ideas of VB code that would take a name from cell A1 and
compare it with the name in B1.
If it is the same delete both A1 and B1 values, if it is different compare
against B2, delete A1 and B2 if name is same....etc etc

Columns A and B have a range of 15 rows

thanks