1 2 3 4 5 6 7 8 | Определить имя рабочего листа, используемого в среде VBA и именуемое как кодовое или программное имя, можно такiCodeName = Worksheets(1).CodeNameНесмотря на то, что свойство CodeName доступно только для чтения, программное имя рабочего листа можно изменять, если не забывать, что модуль входит в семейство VBComponents.iCodeName = ActiveSheet.CodeNameApplication.VBE.ActiveVBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант I.ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант II. |