Поставили бы вопрос по-другому: реально ли отловить момент запуска процедуры поиска на листе (т.е. нажатие "enter" или "найти далее" при активном окне "найти")?
Если да, то тогда возвращайте кол. листов, загоняйте это значение в цикл For i% = 1 to n как n, а далее пишете Cells.Find().Activate

vkodorОшибаетесь.
Если выделить листы через "shift", то поиск будет производиться во всех листах.Перед тем, как предыдущую ахинею написать, сам попробовал...не ищет

vkodorКонечно, пробовал. И не раз пользовался.
Я ни в коем случае не про Вас!!! Я про себя. У меня не вышло просто...Извините, не хотел ни коим образом ставить под сомнение Вашу квалификацию

X11Извините, что поднимаю тему, но не вижу смысла создавать похожую.

Очень часто приходится искать не на листе, а в книге.
Приходится постоянно выбирать из списка, где искать.
Может есть команда, которая откроет это окно или другое для поиска сразу по всей книге ?выделяете все листы в книге (зажмите ctrl+shift и кнопочки pgup/pgdown), а потом ctrl+f

X11зажмите ctrl+shift и кнопочки pgup/pgdown),

Выделяется только один лист следующий или предыдущий относительно текущего. Что-то я не понял замысла.ну так и выделите этот лист, а потом следующий и так всю книгу. Зажмите короче pgup или pgdown =))

X11нет, не мышкой, клавишамия повторяю еще раз. использовать сочетание клавиш секд-shift-pgup/pgdown