Данные функции поиска в форму на ListBox

[igor4546]

Добрый день всем !

Нашел функцию Function FindAll для поиска работает - но как ее прикрутить в созданную форму для поиска в книге ?
В форме
TextBox1 - вводим текст для поиска
ListBox1 - выводятся результаты поиска со ссылками на ячейки результатов

Пример с формой приложил.

[Aleksandr H.]

Private Sub CommandButton1_Click()
TestFindAllOnWorksheets1
End Sub

Sub TestFindAllOnWorksheets1()
Dim FoundRanges As Variant  ' This will be an array containing the the
                            ' ranges in which the text was found, one element
                            ' per worksheet. If the text was not found on a worksheet,
                            ' that worksheet's element will be Nothing.
Dim FoundRange As Range     ' The range on one worksheet of the cells in which the text
                            ' was found.
Dim FoundCell As Range      ' One cell containing the searched-for text.
Dim S As String             ' String for MsgBox
Dim N As Long               ' Array Index
Dim Found As Boolean        ' Indicates whether the text was found on at least one worksheet

FoundRanges = FindAllOnWorksheets(InWorkbook:=ThisWorkbook, _
    InWorksheets:="Лист1:Лист2:Лист3", _
    SearchAddress:="A10:T38", _
    FindWhat:=UserForm1.TextBox1.Value, _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    SearchOrder:=xlByRows, _
    MatchCase:=False)

For N = LBound(FoundRanges) To UBound(FoundRanges)
    If Not FoundRanges(N) Is Nothing Then

        Found = True

        For Each FoundCell In FoundRanges(N).Cells
            UserForm1.ListBox1.AddItem ThisWorkbook.Name & " " & FoundCell.Worksheet.Name & ": " & _
                FoundCell.Address(False, False)

        Next FoundCell
    End If
Next N


End Sub