Thanks for all inputs so far and sorry this is a seperate thread.
I am nearly there.....
I have:-
CellSel = Range("E1")
i = ActiveSheet.Shapes.Count
Line1 = "Sub CommandButton" & i & "_Click"
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet. CodeName).CodeModule
X = .CountOfLines
.InsertLines X + 1, Line1
.InsertLines X + 2, "d=" & CellSel
.InsertLines X + 3, "End Sub"
End With

where cell E1 contains text Hello and i=1 in this case.
This give me the commandbutton code of:-
Sub CommandButton1_Click()
d=Hello
End Sub

But I need the Hello in quotes ("Hello")....d= "Hello". How can I do this.
Cheers Folkes.