One of us read it wrong <g

--
Regards,
Tom Ogilvy


"Dave Peterson" wrote in message
...
Option Explicit
Sub Testme()
dim iRow as long

'start from the bottom and work up
with activesheet
for irow = 15 to 1 step -1
if .cells(irow,"A").value = .cells(irow,"B").value then
.rows(irow).delete
end if
next irow
end with

End Sub


Anthony wrote:

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

--

Dave Peterson