VBA Code

The following assumes you are searching for 0100 as a string, not a number.


Sub Delete()
' Written by Barrie Davidson

     Range("A1").Select
     Cells.Find(What:="0100", After:=ActiveCell, LookIn:=xlFormulas,LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Offset(-1, 0).Activate
     Range("A2:A" & ActiveCell.Row).EntireRow.Delete
     Range("A1").Select
	    
End Sub