Вставить макрос в код страницы

[Dog_DinGo]

Очередной мой вопрос.. уже слегка по сложнее, чем обычно =)

Как вставить макрос в код страницы... естественно по средствам VBA

[EducatedFool]

http://excelvba.ru/code/VBE

Sub CreateEventProcedure()
    Set VBProj = ActiveWorkbook.VBProject
    Set VBComp = VBProj.VBComponents("Лист1")
 
    With VBComp.CodeModule
        LineNum = .CreateEventProc("SelectionChange", "Worksheet")
        .InsertLines LineNum + 1, "    MsgBox ""Сработал программно созданный макрос"""
    End With
End Sub

[Dog_DinGo]

Спасибо большое

Но он обращается не к реальному имени листа.. а к тому, которое в его свойствах указано...


Всё.... Нашёл на форуме: MsgBox Sheets(ИмяЛиста).CodeName