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