There are several things you can do. Two option are listed below:

#1)
Sub CheckForDupes()

Dim RowNdx As Long
Dim ColNum As Integer
ColNum = Selection(1).Column 'set number to match the proper column
For RowNdx = Selection(Selection.Cells.Count).Row To _
Selection(1).Row + 1 Step -1
If Cells(RowNdx, ColNum).Value = Cells(RowNdx - 1, ColNum).Value Then
Cells(RowNdx, ColNum).Delete shift:=xlUp
End If
Next RowNdx
End Sub

#2)
Select Range Data Filter Advanced Filter Copy to Another Location
(choose your location) Unique Records Only Ok


Regards,
Ryan--


--
RyGuy


"Martha" wrote:

How do i get rid of duplicate entries in a spreadsheet?