shp.TextFrame.Characters.Text = "TestText"

--

Regards,
Nigel




"SteveM" wrote in message
...
I have some Label controls placed on a Worksheet. I want to update
the captions using the outputs from an optimization model. However it
looks like the method is different that updating the same control on a
form. I realize that Worksheet controls are managed in the Shapes
collection. I created a test sub to cycle through the Sheet Label
Shapes and tell me their Captions. The Caption property obviously
does not work. Any help on how to update a Label Caption on a
worksheet? I.e. just not see it, but change it.

Thanks Much,

SteveM

Sub GetControls()
Dim shp As Shape
Dim ws As Worksheet

Set ws = Worksheets("Scenario Map")

For Each shp In ws.Shapes
If shp.Type = msoFormControl Then
If shp.FormControlType = xlLabel Then
MsgBox shp.????? ' !!! need Caption
equivalent here
End If
End If
Next

End Sub