Если кнопка из набора ActiveX, то можно так (2 варианта):  
 
Private Sub CommandButton1_Click()  
'MsgBox "Кнопка находится в ячейке " & Me.OLEObjects(1).TopLeftCell.Address  
MsgBox "Кнопка находится в ячейке " & Me.CommandButton1.TopLeftCell.Address  
End Sub

В смысле, эл-ты управления Формы? Тогда пробуем так:  
 
Sub ertert()  
MsgBox "Кнопка находится в ячейке " & ActiveSheet.Shapes("Кнопка 1").TopLeftCell.Address  
End Sub

Sub Test()  
MsgBox Application.Caller  
MsgBox ActiveSheet.Shapes(Application.Caller).Name  
End Sub

Мож он игру "Сапер" на листе замутить решил.

{quote}{login=Const}{date=01.09.2011 05:17}{thema=}{post}  
Небольшой вопрос: как вы запоминаете все эти операторы, методы итд итп.{/post}{/quote}  
 
 
ОФФ:  
Я так подозреваю что некоторые старожилы (не все конечно) при виде неизвестного им оператора или метода - слегка воздействуют на себя электричеством, и сразу его запоминают. Вот почему они так много знают. Но не повторяйте этого дома ! Меньше знаешь крепче спишь )))