Programming To The VBE -Using A Macro To Add Event Procedure To A CommandButton

Am I trying to do something impossible here?
I have a commandbutton1 on a sheet which I copy and paste using a
macro resulting in a commandbutton2. I then want to use the macro to
write the event code for commandbutton2. The event code I want is:-

Private Sub CommandButton2_Click()
d = Range("E1")
Call Common
End Sub

I have a copy of www.cpearson.com - Programming To The VBE but I am
not understanding what I have to do to write the code. I have :-

Dim StartLine As Long
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet).CodeModule
StartLine = .CreateEventProc("Click", "CommandButton2")
.InsertLines StartLine, "d = Range(""E1"")" & Chr(13) & "Call
Common"
End With

which I know is wrong but have no understanding of what is right or
wrong.

I actually get the "E1" from a FirstCol=Inputbox.....so I would like to use the contents of FirstCol rather then specifically "E1".

Are there any wizards out there help me out because I've spent many an hour trying to understand this and am not getting anywhere.
Cheers

Donna,

Instead of writing code 'on the fly' in your module, since the code is already written for CommandButton2_Click, you can assign that macro to the new button you create. Insert this into your code that creates 'CommandButton2' right after the new button is created from the macro:

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).OnAction = "CommandButton2_Click"

Hope this helps,
theDude