I curently have this macro which works fine, I now need to adapt it for
TextBox9 and only delete line if it does not contain words typed into text
box

Sub Filter()
Dim rng As Range
Dim i As Long

Set rng = ActiveSheet.Range(Cells(1, "DY"), Cells(Rows.Count, "DY").End(xlUp))

With rng
For i = .Rows.Count To 1 Step -1
If Not .Cells(i) = UserForm7.ComboBox2.Value Then
.Cells(i).EntireRow.Delete
End If
Next i
End With
End Sub

Any help pwill be much appreciated
Thanks