Обработчик Excel - VB

Формулировка задачи:

Добрый день!
У меня есть рабочая книга, лист1 и лист2. Добавляю программно Лист3.
Как программно добабвить в Лист3 обработчик Worksheet_BeforeDoubleClick?

Решение задачи: «Обработчик Excel»

textual
                            Листинг программы 
                        
                            Private WithEvents MyApp As Application

Sub Init()

Set MyApp = Application

End Sub
Private Sub MyApp_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

MsgBox "BeforeDoubleClick на листе " + Sh.Name

End Sub