Поиск по листам

[ogololobov2009]

Народ, как сделать поиск по листам?

Т.е. есть документ с большим количеством листов. Как задать поиск нужного слова во всех вкладках?

[Hugo121]

Примерно так:

Option Explicit

Sub tt()
Dim sh As Worksheet
Dim iCell As Range
Dim iSearchText$, iAddress$
iSearchText$ = "qwer"

For Each sh In Worksheets
Set iCell = sh.UsedRange.Find _
(What:=iSearchText$, LookIn:=xlValues, LookAt:=xlWhole)

If Not iCell Is Nothing Then
iAddress$ = iCell.Address
Do
Set iCell = sh.UsedRange.FindNext(After:=iCell)
MsgBox sh.Name & "!" & iCell.Address
Loop While Not iCell Is Nothing And iCell.Address <> iAddress$
End If
Next

End Sub

[VictorM]

Есть готовый инструмент для этого
Поле поиска текста по всей книге Excel