Помогите с поиском в Excel

[own]

я только учусь и Ваши ответы очень помогут.

Имеется UserForm, на ней textbox1 и 2, в textbox1 вводится значение и идет ее поиск(работает Find),результат выводится в textbox2, но поиск получается только на одном листе который задаю,
Вопрос. как сделать поиск по всей активной книге и в книгах закрытых и результат соответственно занести в textbox2(поиск в основном ищет числа)

Заранее Большое Вам спасибо

[GSerg]

Код: Выделить всё

dim ws as worksheet, wb as workbook

for each wb in workbooks
  for each ws in wb.worksheets
    ws.usedrange.find ...
  next
next

А закрытым сначала надо сделать workbooks.open ...

[own]

Здравствуйте
Спасибо Вам за ответ.
Но у меня всеравно ничего не получается,
Вот такой код:

Private Sub OKButton ()
Dim ws As Worksheet, wb As Workbook
For each wb in workbooks
For each ws in wb.worksheets
ws.usedrange.Find(What:=TextName, и т.д.)Activate
next ws
next wb
End Sub

Выскакивает ошибка, подскажите что здесь неверно?

[GSerg]

Если ничего не найдено, ws.find равен Nothing. Можно проверять его через is nothing. Можно применить on error resume next.

[own]

Спасибо Вам за помощь ,извените что долго не заходил, много ящиков пива вам и креветок бочку.
Все работает . Получился поиск , при добавлении On Error resume Next замечательно, и найденную ячейку выносит в UserForm. Я бесконечно рад.