Как задать псевдоним имени листа?

[Depressive]

Здравствуйте!
Помню, что встречал на этом форуме (но теперь не могу найти) способ задать таблице (листу) псевдоним, так, чтобы при переименовании листа пользователем все равно продолжали работать ссылки на него из макросов.
Например изначально лист мной был назван "Clients", в макросе указывается, например, Worksheets("Clients").Range("A3:A7" )....
Не в меру "патриотичный" юзер переименовывает лист в "КЛИЕНТЫ", соответственно макрос вылетает по ошибке...
Пожалуйста, подскажите, как эта проблема решается!

Заранее благодарю!

[Скрипт]

Depressive, есть два способа обращения к Excel-листам:

1. по имени листа,
2. по порядковому номеру листа.

[kuklp]

Есть еще и третий. По codename. Тогда обращение к нему будет:

Clients.Range("A3:A7")

[Скрипт]

kuklp, а как сделать то, что вы предлагаете?

[kuklp]

Сделать что? У каждого листа изначально имеется codename. А то, что мы видим на ярлыке, это как раз псевдоним Изменить codename можно в окне properties, см. скрин. Создайте новую книгу, переименуйте в ней все листы, а потом выполните:

Public Sub www()
    Dim Sh As Object, n%, iCodeName$
    n = 1
    For Each Sh In Sheets
        iCodeName = Sh.CodeName
        Application.VBE.ActiveVBProject.VBComponents(iCodeName).Name = "Ежик_в_тумане" & n
        Sh.Name = Sh.CodeName
        n = n + 1
    Next
End Sub

[Скрипт]

kuklp, пока делаю вывод, что к листу можно обратиться тремя способами:

1. по Excel-имени листа;
2. по VBA-имени листа;
3. по порядковому номеру листа.

[kuklp]

Еще можно обратиться к активному листу, минуя эти три способа:-)

[Скрипт]

Тогда четыре способа обращения к Excel-листу:

1. используя Excel-имя листа;
2. используя VBA-имя листа;
3. по порядковому номеру листа;
4. обращение к активному листу.

[kuklp]

Пятый - через свойство parent активной ячейки :-)

[Скрипт]

Обращение к нужному Excel-листу:

1. используя Excel-имя листа;
2. используя VBA-имя листа (свойство "Codename");
3. по порядковому номеру листа;
4. обращение к активному листу с помощью "ActiveSheet";
5. обращаение к листу через ячейку с помощью "Parent".