Добрый день.
Программа работает с рядом рабочих листов в книге. Их количество определяется потребностью пользователя и от сеанса к сеансу различно. 
Листы наделены программной реакцией на действия пользователя.
В данный момент в книге предопределенное кол-во скрытых листов и вручную внесенны обработчики на каждый из них, подобно приведенному:
Private Sub Worksheet_Change(ByVal target As Range)
Call hi(target)
End Sub
Листы скрыты. При потребности в очередном по очереди раскрываются автоматически.
Вариант исчерпал себя. Ограничивает возможности программы.
Решено динамически создавать новые листы вместо того, чтобы держать их в книге в виде скрытых заготовок. В каждый новый программно созданный лист  нужно закладывать один и тот же код, наподобие приведенного выше. Но как это делать программно???


Это сообщение отредактировал(а) НеуФазендник - 11.2.2012, 15:18

Самое простое - делать копию скрытого листа-шаблона, без данных, но с кодом.

Да, держу в голове этот вариант.
Не самый изящный.
Но, скорее всего, единственный возможный.
Спасибо.

Это сообщение отредактировал(а) НеуФазендник - 11.2.2012, 22:22

Нет не единственно возможный..  Есть вариант с программым добавлением кода. Честно говоря сам никогда не тестил.  В вашем случае, как я понял, лучше всего обрабатывать событие создания нового листа.
 Зараннее извиняюсь за возможные синтаксические ошибки, офиса под рукой нет, но идею постарался донести

Если использовать
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
в модуле книги, то событие Change можно отследить на всех листах, включая будущие.

LOPUH, 
Дмит, 
Оба предложеные варианта подойдут и интересны. Не знал о них. Возьму на вооружение. Спасибо.
Все же уже пошел первым путем, предложеным Akina.   Работает. Переделывать пока нет смысла. Так  что успехом в применении новых знаний поделюсь быть может в другой раз   
Еще раз спасибо!!!