Как изменить CodeName из макроса

[oleg]

Добрый день.
Возникла необходимость изменить название CodeName Листа, а как сделать это понять не могу.
Может кто подскажет какие есть методы для этого.

[rami]

Вот так:

Код Выделить Развернуть

Sub Main
ThisComponent.Sheets(0).CodeName="Название"
End Sub
Может быть нужно изменить "Имя листа" ? Тогда вместо CodeName просто Name