Как определить имя рабочего листа, используемое в среде VBA?

Определить имя рабочего листа, используемого в среде VBA и именуемое как кодовое или программное имя, можно так

code: #vba
iCodeName = Worksheets(1).CodeName

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

code: #vba
iCodeName = ActiveSheet.CodeName
Application.VBE.ActiveVBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант I.
ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант II.
Поделиться:

Похожие статьи: