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