Thanks Tom!!
-----Original Message-----
Sub DeleteDups()
do while ActiveCell < ""
if activeCell.Value = activecell.Offset(1,0).Value
then
ActiveCell.Offset(1,0).EntireRow.Delete
else
ActiveCell.Offset(1,0).Select
end if
Loop
End Sub

Select the first cell in the column you want to check and
run the macro.

Untested, but should work. Test it on a copy of your
workbook.

--
Regards,
Tom Ogilvy

"FSK- in montreal"
wrote in message
...
It's been quite a few years since I've had to use
macros.
But now I'm stuck. I have several large worksheets that
are the result of merged databases and I would like to
use
a macro to eliminate duplicate records. This is
following
a sort where I can clearly see one row and the one
beneath
it has the duplicate data.

Any suggestions please!!!! Thank you


.