Sortuse a loop macro from the bottom up asking if cell +1<cell then
row.delete

for i=cells(rows.count,1).end(xlup).row to 1 step -1
if cells(i+1,1)<cells(i,1)then rows(i+1).delete
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Chip" wrote in message
...
I have a worksheet with approx 4,000 rows. Some of the items in Column A
are
duplicates. How do I delete an entire Row if there is a duplicate of the
item in Column A ?? Thanks..