Sub ABC()
dim i as Long
for i = 40 to 2 step -1

if not isempty(cells(i,"BC")) then
if cells(i,"BC").Value = cells(i,"BA").Value then
' rows(i).Delete
Cells(i,"BC").ClearContents
Cells(i,"BA").ClearContents
end if
End if
Next i
End Sub

--
Regards,
Tom Ogilvy


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

Can somebody donate some VB code to carry out the following task?

Look at name in cell BC2, check the name in cell BA2 and if is the same
delete the name in BA2 and BC2.
If is different then leave both cells as they are and move onto checking
BC3
against BA3
carry this loop thru BC2 : BC40

hope this makes sense and thanks in advance