Change a String into a label

[chris.coryell]

Hello.

I'm working with a map that has about 40 labels. I'm trying to write a small module that will step through the labels and based on values in a different sheet change the label caption to a name that makes sense on the map.

The way I'm trying to do this is by using a for loop and using an integer to change between the labels like this:

For i = 1 to 40 step 1
x = "Label" + Cstr(i)
ActiveSheet.Shapes(x).caption = "My_text"
Next i

However, I keep getting the "doesn't support this property" error.

Any thoughts?

Thanks in advance.

 

[pgc01]

Hi Chris
Welcome to the board

Is it a Label from the Forms toolbar of from the Control (ActiveX) toolbar?

 

[Andrew Poulsom]

Maybe try:

ActiveSheet.Shapes(x).Characters.Text = "My_text"

 

[chris.coryell]

Thanks. It is from the Control Toolbar.

 

[pgc01]

Try:

ActiveSheet.OLEObjects("Label1").Object.Caption = "Hi!"

 

[chris.coryell]

That does it! Thanks!!