Это переименование???
Строки:
Worksheets("Лист_1").Copy after:=ActiveSheet - копирует лист, на основе имеющегося шаблона.
ActiveSheet.Name = "Лист_" & I - присваивает "имя" этому листу
Разве не так?

Далее, этот макрос выполняется самым первым (т.к. имя начинается на 'A_' ). Т.е. сначало будут созданы листы в Excel, потом они будут заполнены данными (в соответствии с алгоритмом). И уже потом отрабатывает макрос которые закрывает ячейки на редактирование (Z_Protect). И хотел перед выполнением этого (последнего) макроса, вставить еще один макрос. Который будет идти по уже созданным(и заполненным листам) и переименовывать их по принцепу описанному выше.
Помоему это самое простое как можно реализовать "Переименовывание листов". Эсли кто то знает проще, подскажите?!

Удалось решить проблему. Помог Parazit (Автор ФМ). Если кому интерестно, пользуйтесь.

Можно и в процессе выполнения. Момент определяется алфавитным порядком имен областей и ничем больше. Например создать ячейку Z_Name (для переименования после заполнения) и дальше примерно так:

SetVal 'List_1!Z_Name' '' '' '' 'Новой имя 1'. "кладем новое имя в ячейку
SetVal 'List_1!Z_Name' '' '' 'M' 'RenameList'. "вызываем свой макрос для переименования

и пишем макрос типа такого:

Sub RenameList(R as range)
R.Worksheet.Name = R.Value
R.Value = ""
End Sub