Using A Macro To Add Event Procedure To A CommandButton

[Donna]

Folkes,
I know there are plenty of question/discussions relating to this but I
am not understanding.
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.

Can any of you wizards out there help me out.
Cheers

 

[anonymousA]

Hi,

Doing so with one of these, Donna you should fix your problem

Private Sub CommandButton1_Click()

Dim StartLine As Long
With
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
StartLine = .CreateEventProc("Click", "CommandButton2")

.InsertLines .ProcBodyLine("CommandButton2_Click", vbext_pk_Proc) +
1, "d = Range(""E1"")" & Chr(13) & "Call Common "
End With
End Sub

OR

Private Sub CommandButton1_Click()

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

So long,

Donna a écrit :