title: Speeding up a search and delete macro
body: <p>I have a list containing three columns. The first column contains Names and the other two columns have numbers. The macro takes the first name(A1) and then searches down column A for another occurrence.</p>
  
  <p>When it finds it, it deletes the entire row.It then goes to A2 and does the same thing agan. It works ok for about 500 entries, but using 3000 entries slows it down considerably. Is there a way to speed up this code?</p>
  
  <pre><code>Sub Button1_DeleteRow()
  
  Dim i As Integer
  Dim j As Integer    
  Dim Value As Variant
  Dim toCompare As Variant
  
  For i = 1 To 3000      
      Value = Cells(i, 1)
      For j = (i + 1) To 3000
          toCompare = Cells(j, 1)
          If (StrComp(Value, toCompare, vbTextCompare) = 0) Then
             Rows(j).EntireRow.Delete
          End If
        Next j  
  Next i
  
  End Sub 
  </code></pre>