Try something like:

Sub ChangetheTextintheShape()
Dim res As String
With Selection
res = InputBox("What text do you want placed in the Shape?")
Selection.Characters.Text = res
End With
End Sub


"matelot" wrote in message
...
Hi,
I want to be able to update the text in the rectangle when the user clicks
on it. My code doesn't seem to update the text even though under debugging
mode, I can see it updating.
Pls help.

ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "test1 "
MsgBox "ts"
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "test2 "
ActiveCell.Select