Sub deleteRow()
Range("a1").Select
Do Until ActiveCell.Address = "$A$10" 'to whichever cell is ending
If ActiveCell.Value = "bo501" Then
Rows(ActiveCell.Row).Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

End Sub
"dayton" wrote in message
...
I need my macro to delete rows that start with specfic data, not clear the
row but delete. If row begins with text "bo501" delete.
T.I.A.
Dayton