Запись события в созданный лист - VBA

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

Приветствую! Есть событие в эксель которое срабатывает при создании листа:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
 
End Sub

Подскажите как мне после создания нового листа через VBA поместить в него код с событием, например

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
End Sub

Решение задачи: «Запись события в созданный лист»

textual
                            Листинг программы 
                        

                            Private Sub Workbook_NewSheet(ByVal Sh As Object)
   With ThisWorkbook.VBProject.VBComponents
        With .Item(Sh.CodeName).CodeModule
             .InsertLines 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
             .InsertLines 2, "End Sub"
        End With
    End With
End Sub
                        