всё здорово, но вот если на листе искомое слово встречается несколько раз, то выводится ссылка всего лишь на первое встреченное совпадение, а как быть с остальными?

я согласен с kovax =) если слово встретиться два раза, то поисковик выведет только первое найденое значение на странице =) а как быть с остальными?  
А так поисковик в принципе нормально работает =)

{quote}{login=}{date=25.07.2011 06:20}{thema=Re: }{post}{quote}{login=Medvedoc}{date=25.07.2011 06:14}{thema=}{post} если слово встретиться два раза, то поисковик выведет только первое найденое значение на странице {/post}{/quote}А Вы и не просили такой поиск.{/post}{/quote}  
 
Возможно думал о таком поиске =) но не описал до конца сути =)  
А возможен такой вариант?

посмотрел код более внимательнее =) а можно сделать так, чтобы вместо номера ячейки выводилось ее название, точнее текст, который в ней содержится?

нашел макрос другого поисковика. В нем с листа отображаются все значения. Как можно часть данного кода перенести в свой код, чтобы результаты поиска выводили все найденные значения с листа  
 
Сам код  
Private Sub CommandButton1_Click()  
Dim MyLeight As Integer  
Dim iFirstAddress As String, iSecondAddress As String  
Dim iFoundRng As Range  
 
If Len(ComboBox2.Value) = 1 Then MyLeight = 8  
If Len(ComboBox2.Value) = 2 Then MyLeight = 9  
 
Application.ScreenUpdating = False 'обновление экрана wykl  
 
With Columns(1)  
Set iFoundRng = .Find(ComboBox2.Value & "*" & Right(ComboBox1.Value, 2))  
If Not iFoundRng Is Nothing Then  
iFirstAddress = iFoundRng.Address  
 
Do  
If Len(iFoundRng.Value) = MyLeight Then  
ListBox1.AddItem iFoundRng & "|" & iFoundRng.Offset(0, 1).Value  
End If  
Set iFoundRng = .Columns(1).FindNext(iFoundRng)  
iSecondAddress = iFoundRng.Address  
Loop While iSecondAddress <> iFirstAddress  
 
Else: MsgBox "Нет данных"  
End If  
End With  
Application.ScreenUpdating = True 'обновление экрана wkl  
End Sub

так файлик прикреплен в самом верху =) там windows 7 выложил готовое решение, но это решение выводит в результатах поиска по одному значению с каждого листа при наличии на каждом из этих листов по несколько одинаковых значений =) например на листе имеется два значения в виде цифры 5, при поиске результат покажет с этого листа только первое значение =)  
 
я нашел другой макрос поисковика, где отчасти реализовано то, что надо. Но надо оттуда приспособить код к макросу Windows 7, ЧТОБЫ ПОЛУЧИЛОСЬ 100% ЗАДУМАННОЕ =)  
 
Прикрепил во вложение файлик поисковика, нарытого на аналогичной теме. Мой как вы выражаетесь файл, выложил Windows 7 и от него надо отталкиваться, поскольку это оптимальный вариант решения =)

Хорошо, вот мой файл.  
Но там нет реализации поиска. Пользователь Windows 7 предложил свой файл. Я его протестировал и обнаружил незначительный минус, который и описал выше. И эт оне значит, что поленился.  
Также на похожей теме нашел другой вариант поисковика, который реализован на одном листе, но при этом выводит результаты поиска всех найденных значений, заданных изначально. Мне надо как-то данную возможность реализовать в макросе пользователя windows 7.

Прошлось удалить.