Прошу помощи с внедрением поиска⁠⁠

Набросал скрипт, его нужно вставить в модуль листа. Он отслеживает изменение ячейки B2 на листе и после ввода значения (нажали Enter или ушли из ячейки) автоматически ищет его на 50 листах с префиксом "Спецлист". Все, что находит четко равное введенному значению, оформляет в виде гиперссылок в столбце правее.

Листы книги перебираются в цикле, поиск на листах - с помощью метода Application.Match().

Код:

=================

Private Sub Worksheet_Change(ByVal Target As Range)

Set cl = Intersect(Me.Range("B2"), Target)

If cl Is Nothing Then Exit Sub

Application.EnableEvents = False

Set pos = Me.Range("D2")

Set lr = Me.Cells(Me.Rows.Count, "D").End(xlUp)

If lr.Row < 2 Then Set lr = pos

Me.Range(pos, lr).Clear

For Each ws In ThisWorkbook.Worksheets

If InStr(1, ws.Name, "Спецлист", vbTextCompare) > 0 Then

m = Application.Match(Target.Value, ws.Columns("B"), 0)

If IsNumeric(m) Then

Me.Hyperlinks.Add pos, "", "'" & ws.Name & "'!B" & m, "Перейти к листу", ws.Name

Set pos = pos.Offset(1)

End If

End If

Next

Application.EnableEvents = True

End Sub

=================

Скрин:

Можете ответить чем стандартное "Найти" в Эксель не устраивает и для чего этот "лисапед" изобретается отдельно?

"Дано" то понятно.

А теперь еще раз "как для тупых" напиши коротко что тебе надо