Using Shape as CommandButton

[inactiveUser214710]

Hi everyone
I have a sort of "shapes" that I would like to use as a commandbutton or togglebutton.
What I would like do is when i click on a certain shape, it recorded in the worksheet and gives its name'shape.
How to do it?
In an attempt I used the code below without success.
I need your help.
thanks advance.

Sub lançarShape()

Dim rng As Range

Set rng = Worksheets("sheet1").ActiveSheet.Shapes.Range(Array("bancoA1")).Cells(Row.Count, "A").End(xlUp).Offset(1, 0)
rng.Range("u2") = "A1"

End Sub

 

[Fluff]

Not sure I understand what you want, but if you simply want to enter the name of the shape in U2 try

Sub lançarShape()

Range("u2") = "bancoA1"

End Sub

 

[inactiveUser214710]

Hi Fluff
It was solved.
My thanks to you, solved, and for quicly answer
Jdcar

 

[Fluff]

You're welcome