title: Removing duplicate data from columns in Excel
body: <p>I am having an issue with this code:</p>
  
  <pre><code>Sub text() 
  
  Dim iListCount As Integer 
  Dim x As Variant 
  Dim iCtr As Integer
  
  ' Turn off screen updating to speed up macro. 
  Application.ScreenUpdating = False
  
  ' Get count of records to search through (list that will be deleted). 
  iListCount = Sheets("sheet2").Cells(Rows.Count, "C").End(xlUp).Row
  
  ' Loop through the "master" list. 
  For Each x In Sheets("Sheet2").Range("A1:A" &amp; Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row) 
        ' Loop through all records in the second list. 
        For iCtr = iListCount To 1 Step -1 
           ' Do comparison of next record. 
           ' To specify a different column, change 1 to the column number. 
           If x.Value = Sheets("Sheet2").Cells(iCtr, 3).Value Then 
           ' If match is true then delete row. 
            Sheets("Sheet2").Cells(iCtr, 1).EntireRow.Delete 
            End If 
          Next iCtr 
  Next 
  Application.ScreenUpdating = True 
  MsgBox "Done!" 
  End Sub
  </code></pre>
  
  <p>It runs, and kind of works. It removes one duplicate but leaves all of the others. I am testing this so I'm using a small sample size, so I know that there are 5 duplicates, however I can't get this code to remove them all. Any ideas? I think its an issue with the loop but no matter what I change I can't get it to work</p>