Or

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


Will only work with Rectangle 2, but you would need to place a button on the sheet to run it.

Corey....

"Corey" wrote in message ...
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