событие click в commandbutton

[gsg]

здравствуйте!
подскажите, пожалуйста, как при программном создании кнопки

set cb = myform.Controls.Add("forms.commandb utton.1","name" , True)

создать также программно и действия на событие click ??

нашел в интернете такой вариант:

With myform.CodeModule
Line = .CountOfLines
.InsertLines Line + 1, "Sub cb2_Click()"
.InsertLines Line + 2, "MsgBox ""My Click!"""
.InsertLines Line + 4, "End Sub"
End With


но, excel ругается на .CodeModule, говорит, нет такого...

[doober]

Посмотрите здесь

[gsg]

мне кажется, что такой вариант излишне сложен, по крайней мере, по сравнению с этим:

http://www.programmersforum.ru/showthread.php?t=32249, #6

зы: разгадка была, как обычно, рядом - эта ссылка была в похожих темах