Don's code performs the same equality test as Greg's and is much simpler by
looping in reverse and requiring no selection. Think you wasted your time
not adequately testing it. I ran it on the data you posted and it did
exactly what you asked.

--
Regards,
Tom Ogilvy


"GAIL HORVATH" wrote in message
...
Doesn't work. I probably wasn't clear in what I needed. This is a better
example It is whwn A2=A3 etc that I want the entire row deleted
e.g.
A B C D E
Acct # MedRec# field field field
112233 xxx xxx xxx xxx
112233 xxx xxx xxx yyy
123123 xxx xxx xxx xxx
123412 xxx xxx xxx xxx
123412 xxx xxx xxx ttt
123412 xxx xxx xxx sss
--
Gail M Horvath


Eastern Time Zone
"Don" wrote in message
...
Gail,

How about:

Sub DeleteDupRows()
With ActiveSheet
For iRow = 100 To 2 Step -1 'change 100 to last row
If Cells(iRow, 1) = Cells(iRow - 1, 1) Then
Cells(iRow, 1).EntireRow.Delete
End If
Next iRow
End With
End Sub

Don Pistulka


"GAIL HORVATH" wrote in message
...
I hane a column in a spread sheet whose values at times are repeats of
the cell above. I want that row deleted if the value is the same as the cell
above is there a way to do it programaticallY?

e.g.
A B C D E
Acct # MedRec# field field field
112233 xxx xxx xxx xxx
112233 xxx xxx xxx yyy
123123 xxx xxx xxx xxx
123412 xxx xxx xxx xxx
123412 xxx xxx xxx ttt
123412 xxx xxx xxx sss

I would want the rows in bold red deleted

--
Gail M Horvath