Sub deleteDupsInSortedList()
Dim icol as Long, lastrow as Long

icol = 1
lastrow = cells(rows.count,icol).End(xlup)
for i = lastrow to 2 step -1
if cells(i,1).Value = cells(i-1,icol).Value then
rows(i).Delete
end if
Next i

End Sub

--
Regards,
Tom Ogilvy


"ina" wrote:

Thanks a lot for this answers, effectively I would like to delete a
duplicate entry in a column.

Ina