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