simple macro that display assigned macros for each Button

 run the following simple macro that display assigned macros for each Button: 

 Sub ButtonOnAction()  
 Dim shp As Shape  
 Dim i As Integer  
   For Each shp In ActiveSheet.Shapes  
     ' Type 8=Button, 13=Picture, 4=Comment, ...  
     '--  
 i = 1  
     If shp.Type = 8 Then  ' 8 = Button  
       Application.Goto Reference:=shp.TopLeftCell, Scroll:=True  
       shp.Select  
       MsgBox i & ". Button '" & shp.Name & "' - Macro: '" & shp.OnAction & "'"  
       i = i  
     End If  
   Next shp  
 End Sub