changing text of a button

[LAazsx]

Hi, how can I automatically change the text property of a shape?

Here's the scenario,
I have a rectangle that functions as a button. When the button is clicked, the text will be transferred from a variable.

I don't know how to do this since the macros is not really a property of the object. In VB, the code is
btn1.text = variable
how do i do this in VBA?

[DonkeyOte]

So you're saying - you have a Macro assigned to the Shape which when run should modify the caption on the Shape itself ?

If so, perhaps you want something like:

Sub Rectangle1_Click()
    Dim strVar As String
    strVar = "Caption"
    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.Characters.Text = strVar
End Sub

where Rectangle1_Click is the Macro assigned to the Shape itself.

[LAazsx]

Thanks. Uhm... How do i actually name the object?

[LAazsx]

Oh nevermind. found it thanks :D

Edit: uhm can't get it to work properly. When I run the triggering button, all functions assigned except this text change function works. but when i try to run from the code window, the code works properly. the triggering button is on another sheet. this is my code

Worksheets("Main").Shapes("Item 1").Select
Selection.Characters.Text = Worksheets("Raw Materials").Range("H7").Value