Excel - Como escribir un evento en el ThisWorkbook a través de una macro

Sub Crear_Macro_2()

    Dim proj As VBIDE.VBProject

    Dim comps As VBIDE.vbcomponents     ' Hojas, ThisWorkbook, Módulos estándar, Módulos de clase, UserForms

    Dim modulo As VBIDE.VBComponent     ' Módulo1, NuevoMódulo, Módulo2

    Dim codigo As VBIDE.CodeModule      ' Sub, Function, property_get, property_let

    Set proj = ActiveWorkbook.VBProject   ' Workbooks(1).VBProject   ActiveWorkbook.vbproject    Workbook("Libro2.xlsm").VBproject    ThisWorkBook.VBProject

    Set comps = proj.vbcomponents

    Set modulo = comps.Add(vbext_ct_stdmodule)

    modulo.Name = "ThisWorkbook"

    Set codigo = modulo.CodeModule

    With codigo

        .InsertLines .countOfLines + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)"

        .InsertLines .countOfLines + 1, "    SendKeys ""%m%u{ENTER}"""

        .InsertLines .countOfLines + 1, "End Sub"

    End With

End Sub