Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Uses the Find method to reduce the number of cycles spent in VBA loops
Sub DeleteRows2()
         Dim rngFoundCell As range
         Application.ScreenUpdating = False
         Set rngFoundCell = range("C:C").Find(What:="Mangoes")
         Do Until rngFoundCell Is Nothing
             rngFoundCell.EntireRow.delete
             Set rngFoundCell = range("C:C").FindNext
         Loop
     End Sub