That works perfectly thanks, i have a slightly more complicated problem along
these lines and you help would once again be much appreciated

using the same code would it be possible to delete line if value is not
equal to or inbetween text boxes 5 and 6 (box 5 always being less or the same
as 6)

"Jacob Skaria" wrote:

Dear Miree

User Instr function


If Instr(.Cells(i),UserForm7.TextBox9.Text) = 0 Then
.Cells(i).EntireRow.Delete
End If


If this post helps click Yes
--------------
Jacob Skaria


"Miree" wrote:

This only works if the contents are exact i am looking to make it work if one
word is typed in to the text box it will find it if it appears anywhere in
the cell text

"Jacob Skaria" wrote:

f Not .Cells(i) = UserForm7.TextBox9.Text Then
.Cells(i).EntireRow.Delete
End If

--
If this post helps click Yes
--
Jacob Skaria