title: Delete rows in Excel using VBA by finding column and value within column
body: <p>I am trying to build a macro which will find a column with the header "Total Labor" and delete all rows which have "0" in that column. I am generating multiple reports and the "Total Labor" column will change position so that's why I need the find. So far I have this code but when I run it nothing happens. Any help is appreciated.</p>
  
  <pre><code>Sub DeleteRows()
  Dim FoundCell As Range
  Dim rng As Range
  Application.ScreenUpdating = False
  Set rng = Worksheets(ActiveSheet.Name).Range("A1:BB100").Find(what:="Total Labor", _
      LookAt:=xlWhole, MatchCase:=False)
  Set FoundCell = rng.Find(what:="0")
  Do Until FoundCell Is Nothing
      FoundCell.EntireRow.Delete
      Set FoundCell = rng.FindNext
  Loop
  
  End Sub
  </code></pre>