Copying VBA from one sheet to another programatically

I have two event procedures attached to a worksheet as follows:

Private Sub Chart_BeforeRightClick(Cancel As Boolean)
    Cancel = True
    CommandBars("myShortcutBar").ShowPopup
End Sub
Private Sub Chart_Activate()
    CreateShortcutMenu
End Sub

Some other code (attached to the right click menu made in the Chart_Activate() procedure and displayed with the right click button) creates another worksheet. I want this new worksheet, which is not created using copysheet, to have the same event procedures as above. How can I programatically write some VBA into this new sheet?

MrPogle

That's a whole huge subject with references that need to be set and a lack of good documentation. A good start would be here

http://www.cpearson.com/excel/vbe.aspx

Thanks. I also found:

http://www.mrexcel.com/forum/showthread.php?t=322504

useful from which I tried the following:

Sub WriteCode(str_Dest As String)
    Dim chrt As Chart, str_Code As String
    Set chrt = Sheets(str_Dest)
    str_Code = "Private Sub Chart_BeforeRightClick(Cancel As Boolean)" & vbCrLf
    str_Code = str_Code & "Cancel = True" & vbCrLf
    str_Code = str_Code & "CommandBars(""myShortcutBar"").ShowPopup" & vbCrLf
    str_Code = str_Code & "End Sub" & vbCrLf
    str_Code = str_Code & "Private Sub Chart_Activate()" & vbCrLf
    str_Code = str_Code & "CreateShortcutMenu" & vbCrLf
    str_Code = str_Code & "End Sub" & vbCrLf
    With ActiveWorkbook.VBProject.VBComponents(chrt.CodeName).CodeModule
        .InsertLines 1, str_Code
    End With
End Sub

It worked fine when I single stepped it one at a time but when I put it into my project I consistently got an Automation Error.

Actually, forget the above. The rest of my code manipulates pivot tables attached to a chart. When I put the procedure call (WriteCode("MyChart")) after the above, it works fine!