deleting duplicate cells

[ghynes]

hello,

im looking for a macro that search through an entire worksheet and will delete an entire row if data in the cell in column C is equal to data in the cell in column D.
can anyone help?

[davesexcel]

Hi,
There is a code at this page that you can use for deleting duplicate rows

http://www.cpearson.com/excel/deleting.htm

[sweep]

Hi,

Sub rowdelete()
   Dim theLastRow As Integer
   Dim theRow As Integer
   
   theLastRow = Cells(Rows.Count, "c").End(xlUp).Row
   For theRow = theLastRow To 1 Step -1
      If Cells(theRow, "c").Value = Cells(theRow, "d").Value Then
                     Rows(theRow).Delete
         End If
     
   Next theRow
End Sub

[ghynes]

excellent. thanks.