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

[kuklp]

Можно с неактивным листом, если на нем определен range занесенный в объектную переменную. Я часто пользуюсь конструкцией rng.parent при сохранении новых листов в файл. Имя такого листа неизвестно(как экс назовет), он м.б. как активным, так и неактивным. Самый простой и короткий способ как раз rng.parent.saveas.

[Hugo121]

Но если обращаться именно к Лист3 (как на скрине Сергея) - то думаю у меня на работе этот код заглючит... возможно.
Разгадывайте почему

[Скрипт]

Hugo121, привязка к книге нужна. Если не указывать книгу, то подразумевается лист в VBA-проекте, в котором находится код.

[Hugo121]

Привязка привязкой (хотя не нашёл, как можно привязать без перебора - wb.Sheet1.[a1].value не работает, но перебором можно привязаться), но тут дело в другом - если это имя не сменить, то на английском Экселе это имя (Лист1) возможно само изменится на Sheet1 и код естественно встанет.
Может быть это на новых версиях исправлено, не знаю - но у меня на 2003 глюк есть.

[Скрипт]

Hugo121, предположу, что не сменится, т.к. имя даётся при создании книги, а затем имена уже не меняются программой "Excel" автоматически.

[Hugo121]

Вот как раз меняются...

И кстати проверить легко - качните пяток книг с форумов и обратите внимание на кодовые имена. Наверняка попадутся книги, созданные в Экселях другой локализации, в которых кодовые имена будут как у Вас. Счас на одну такую смотрю

[Казанский]

Сообщение от Скрипт

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

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

6. Обращение к Me в модуле листа.

[Depressive]

Спасибо, kuklp! Выручили!

Конечно, писать codename.Range удобнее, чем Worksheets(".....")
Уже переделал во многих местах макросов с Worksheets("имя_таблицы").Range.... на кодовое_имя_таблицы.Range....

[Hugo121]

Я обычно делаю так - в начале кода

 Set sh = wb.Worksheets(1)

wb где-то выше получено аналогично при первом обращении к книге.
ну и далее

sh.Range