VBASheet := E_WB.VBProject.VBComponents.Add( 1 ); // vbext_ct_StdModule

VBASheet.CodeModule.AddFromString(code);

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim vbc As VBComponent
    Dim cm As CodeModule
    Dim i As Integer
      
    Set vbc = ThisWorkbook.VBProject.VBComponents(Sh.Name)
    Set cm = vbc.CodeModule

    With cm
        i = .CountOfLines +  1 
        .InsertLines i, _
          "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
        i = i +  1 
        .InsertLines i, _
          "    MsgBox ""A!"", vbInformation"
        i = i +  1 
        .InsertLines i, "End Sub"
    End With

    Set cm = Nothing
    Set vbc = Nothing
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub