Hi,

Try it like this:

ActiveSheet.Shapes("Rectangle 1").OLEFormat.Object.Caption="TEST"


--
Hope that helps.

Vergel Adriano


"matelot" wrote:

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