View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Donna[_7_] Donna[_7_] is offline
external usenet poster
 
Posts: 17
Default I need to put text in quotes(")

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.