Use text on a shape in a macro

[liampog]

Hi

I have 3 macros assigned to 3 different shapes (buttons).

Each macro does exactly the same thing (enters text into a cell), but for each macro its different text.

Is there any way I can have one macro only for each button but the macro reads the text inside the shape and uses this as the variable.

It would just be handy and much smarter programming I think.

Thanks

 

[Fluff]

When you say shapes (buttons) are they shapes, or form control buttons?

 

[liampog]

Hi

They are shapes with macros assigned to them.

Thanks

 

[Fluff]

Ok, how about

Sub liampog()
   Dim Shp As Shape
   
   Set Shp = ActiveSheet.Shapes(Application.Caller)
   Cells(1, 3).Value = Shp.TextFrame2.TextRange
End Sub

 

[liampog]

Awesome thanks!

 

[Fluff]

You're welcome & thanks for the feedback