Buttons thats copy the Caption in a cell

[ferrugo]

hi (sorry about de Bad english)
Please, im trying create a macro that copy a caption off the button and paste in a cell
*** But the same macro runs with every buttons (with any button name)

Explain Again: The Macro tha run with a many buttons. When i click it, the caption wil copy in a cell.

Thanks a lot...

[Bob Phillips]

Assign this macro to all buttons

[vba]

Public Sub ButtonCaption()

ActiveCell.Value = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub
[/vba]

[ferrugo]

Hey.
Many thanks..
Sorry about the simple doubt..