i am trying to search thru a worksheet and if a cell contain a specific text delete the row.
but this does not work.
any ideas?
ss=inbut box ("Search For ?")
sr=inputbox ("What Row ?")
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = lr + 1 To 1 Step -1
If (IsNumber(Search(ss, sr)&r),Then Rows(r).EntireRow.Delete
next
but this does not work.
any ideas?
ss=inbut box ("Search For ?")
sr=inputbox ("What Row ?")
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = lr + 1 To 1 Step -1
If (IsNumber(Search(ss, sr)&r),Then Rows(r).EntireRow.Delete
next