найти нужное слово из нескольких в ячейках

[Сергей54]

Добрый день уважаемые форумчане!
Вроде бы простая задачка, а что-то результата нет.
Нужно в цикле просмотреть колонку 3, найти нужное слово (т.е. в ячейках есть несколько слов, а нужно найти ячейки, которые СОДЕРЖАТ искомое слово) и перенести значения из 5 ячеек этой строки на другой лист и так до конца цикла. Искомое слово получаю из Текстбокса.
Что у меня есть:
Dim Adres As String, i As Long, j As Integer
Sheets(4).Select
Adres = UserForm1.TextBox1.Text
j = 1
For i = 4 To 1000
If Cells(i, 3).Value = "=**Adres**" Then
Worksheets(3).Cells(j, 1).Value = Worksheets(4).Cells(i, 1).Value
Worksheets(3).Cells(j, 2).Value = Worksheets(4).Cells(i, 2).Value
Worksheets(3).Cells(j, 3).Value = Worksheets(4).Cells(i, 3).Value
Worksheets(3).Cells(j, 4).Value = Worksheets(4).Cells(i, 4).Value
Worksheets(3).Cells(j, 5).Value = Worksheets(4).Cells(i, 5).Value
j = j + 1
End If
Next i
Range("A1").Select

Заковыка в этой строке: If Cells(i, 3).Value = "=**Adres**" Then...
Может, кто подскажет?

[Hugo121]

If Cells(i, 3).Value like "*" & Adres & "*" Then...

А вообще можно сразу все отобрать фильтром.
Даже на 1000 строк будет заметно быстрее.

[Сергей54]

Like - это то, что мне было нужно. Спасибо! Всё получилось.