VBA Code


Sub Delete_row()
' Written by Barrie Davidson
Dim Macro
Macro = 150

   Do Until ActiveCell.Value = ""
      If ActiveCell.Value = "Macro" Then
         ActiveCell.EntireRow.Delete
      Else
         ActiveCell.Offset(1, 0).Activate
      End If
   Loop

End Sub

The value being deleted would be "Macro" and is case sensitive. You have to be in the first cell of the column you want to search.