Заменить стандратное название листа "Лист" на другое.

[tae1980]

Когда создаешь лист, то он получает имя "ЛистN". Как заменить стандартное "Лист" на иное?

[Михаил С.]

Создаете вручную или кодом? Заменить вручную или кодом?

[kuklp]

Я же Вам показал в прошлой теме, как присвоить имя вставленному листу. Или это у Вас шутки такие?

[Александр 33]

Типа так ?

Sub ПРОВЕР()
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "РЕЗУЛЬТАТЫ! " & (Sheets.Count) & ""
End Sub

[Hugo121]

Тогда уж лучше так:

Sub ПРОВЕР()
With Sheets.Add(, Sheets(Sheets.Count))
.Name = "РЕЗУЛЬТАТЫ! " & (Sheets.Count)
End With
End Sub

или так, одной строкой

Sub tt()
Sheets.Add(, Sheets(Sheets.Count)).Name = "РЕЗУЛЬТАТЫ! " & Sheets.Count
End Sub

[tae1980]

Сообщение от kuklp

Я же Вам показал в прошлой теме, как присвоить имя вставленному листу. Или это у Вас шутки такие?

Переименовать лист не проблема. А вот как сделать так что бы лист сразу создавался с нужным именем?

[kuklp]

Создайте книгу с одним листом, назовите его Ежик и сохраните как шаблон. Теперь в других книгах, если захотите вставиль лист, в списке шаблонов выбирайте Ваш и Вам навставляются Ежики.

[tae1980]

Сообщение от Hugo121

Sub tt()
Sheets.Add(, Sheets(Sheets.Count)).Name = "РЕЗУЛЬТАТЫ! " & Sheets.Count
End Sub

А как задать кодовое имя?
И это все таки не со всем то. Хотелось бы изменить стандарное значение, для того что бы при любом способе создания листа оно получало нужное имя.

[Hugo121]

==============================================================
http://www.msoffice.nm.ru/faq/macros/module.htm

 Несмотря на то, что свойство CodeName доступно только для чтения, программное имя рабочего листа можно изменять, если не забывать, что модуль входит в семейство VBComponents.  
 
iCodeName = ActiveSheet.CodeName 

Application.VBE.ActiveVBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант I.

ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант II. 

==============================================================

[tae1980]

Сообщение от kuklp

Создайте книгу с одним листом, назовите его Ежик и сохраните как шаблон. Теперь в других книгах, если захотите вставиль лист, в списке шаблонов выбирайте Ваш и Вам навставляются Ежики.

Это все понятно. Но как мне заставить пользователя так поступать. Кто муже меня устраивает автоматическая нумерация, но нужно заменит первую текстовую часть имени.
Как я понимаю значение "Лист" должно храниться в переменой экселя. Для достижения результата, в теории, должно быть достаточно просто заменить значение этой переменной при загрузке книги. И все.
Интересно имено это или подобное решение. Кто муже меня интересует впервую очередь кодовое имя. У такого решения очень много положительных сторон и самое главное совершенно не нужно контролировать пользователя, а он, да же если захочет, не сможет ни чем навредить (куда он денется с подводной лодки? :).