title: Delete row based on value in a column
body: <p>I have the following code which works i.e. deletes a row in a worksheet when a specific column has a value of "PAID"</p>
  
  <pre><code>Sub RemoveRows()
  
  Dim i As Long
  Dim strtest As String
  
  i = 1
  
  Do While i &lt;= ThisWorkbook.ActiveSheet.Range("AG1").CurrentRegion.Rows.Count
  
  strtest = ThisWorkbook.ActiveSheet.Cells(i, 33).Text
      If ThisWorkbook.ActiveSheet.Cells(i, 33).Text = "PAID" Then
          ThisWorkbook.ActiveSheet.Cells(i, 33).EntireRow.Delete
      Else
          i = i + 1
      End If
  
  Loop
  
  End Sub
  </code></pre>
  
  <p>However it is very slow on worksheet with 5000 rows.</p>
  
  <p>Any ideas how to make it a lot faster?</p>