Выполнение макроса на нескольких листах книги

[AlexIzu]

Добрый день. Подскажите пожалуйста как сделать так чтобы макрос, который выполняется только на одном активном листе выполнялся на всех листах книги, кроме первого.
Цикл прохождения по всем листам добавлял, но ничего не изменилось. Возможно я что то не до конца понимаю. Прикрепляю файл (для простоты понимания) и вкратце объясняю что мне необходимо сделать.
В приложенном файле на 4 листах, начиная со 2-го листа, приведены некоторые расчёты. Параметры влияющие на результат вносятся руками (эти ячейки подписаны).
"Поиском решений" необходимо найти конечный параметр в ячейке А85. Необходимые требования для "Поиска решений" уже внесены в форму "Поиска решений".
Для того чтобы каждый раз не вызывать и не протыкивать ручками "Поиск решений" на каждом листе (в будущем листов будет ещё больше) был написан макрос, который автоматически вызывает "Поиск решений" с нужными параметрами и получаем в конечном счёте нужный результат в ячейке А85.
Мне нужно чтобы данный макрос "Поиск решений" выполнялся на каждом из (пока что) 4-ёх листов. При внесении изменений в данные которые заносятся руками конечный результат поменялся только на "активном листе".
Заранее благодарен.

[Neyandex]

Index не всегда указывает на листы по порядку.

Для уверенности лучше использовать имя листа, напр:

    If ws.Name<>"расчет портфеля" Then ....

[AlexIzu]

Спасибо за подсказку.