На скриншоте - кнопки, которым назначен один и тот же макрос:  
http://ExcelVBA.ru/pictures/20121101-bp5-30kb.jpg  
 
Но этот макрос подойдет, только если кнопки выполнены при помощи автофигур.  
 
Sub Buttons_Macro()  
   On Error Resume Next: Err.Clear  
   FolderName$ = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text  
   If Err Then MsgBox "Макрос можно запускать только с кнопки на листе", vbCritical: Exit Sub  
     
   MsgBox "нажата кнопка " & FolderName$  
End Sub