在代码中引用VBAbutton标题

在我的Excel中，我有大约200个链接到显示文本框的button。 有没有什么办法可以让一个macros像这样：

ActiveSheet.Shapes.Range（数组（“TextBox TEXT ON BUTTON CLICKED ”），然后让我所有的button导致相同的macros，但返回不同的文本框？

在此先感谢，罗布

Answer 1

一些#Rory写道，你可以使用ActiveSheet.Buttons(Application.Caller) ，其中所有的button链接到相同的Sub和select的情况下，你可以播放一个代码或另一个。 我可以想到其他解决scheme

 Sub cmdAction() btn = ActiveSheet.Buttons(Application.Caller).Name Select Case btn Case xxxx Do Case Else Do End Select End Sub