Лист должен содержат список Названий листов расположенных между листами
"Имя1" и "Имя2".
Моя версия.
Первый столб: номера 1,2,3...
Второй столб:
NameList(str1 as String, str2 as String, IntList as Integer, TempRange)
Функция ищет номер листа int WorkSheets.Item(str1).Index + IntList
и выдает WorSheets(int).Name
Вызов NameList("Имя1", "Имя2", $A1, 'Имя1:Имя2'!$A$1)
Работает на вставку, создание и перемещение
Но не работает на переименование. :(

Буду благодарен за совет, пример, критику, да и просто так за прочтение :)

P.S. Трехмерный массив 'Имя1:Имя2'!$A$1 засунуть в Range так и не удалось

Sorry! Промахнулся, пойду в Office