Как l oop через ячейки в листе, чтобы найти другой лист?

Question

Мне нужно найти в листе «Проверка» значения из листа «Текст».

Как создать один oop для листа «Текст» по значению ячейки А2 - А4 по одному.

Я создал ниже код

Option Explicit

Dim i As Integer
Dim WS, W As Range

Sub Search_fn()

Set WS = Range("B2")

WS = Application.WorksheetFunction.Search(Sheet2.Range("A2"), Range("A2"), 1)

End Sub

Это показывает ошибку 1004, и я также не могу написать l oop для всех значений.

Лист "Проверка"

Лист "текст"