это решается с помощью модуля класса и withevents..  
вот пример:  
 
в модуле класса:  
 
Public WithEvents CommandBarEvents As CommandBarButton  
 
Private Sub CommandBarEvents_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)  
   On Error Resume Next  
   If Ctrl.Tag = 256 Then  
       Application.Run Ctrl.OnAction  
       CancelDefault = True  
       Call Application.OnTime(Now + TimeValue("0:00:01"), "Auto_open", Now + TimeValue("0:00:05"))  
         
 
   End If  
End Sub  
 
в стандартном модуле:  
 
Global cm As C_event  
Sub Auto_open()  
   Call Register_Event_Handler  
end sub  
 
Sub Register_Event_Handler()  
   Set cm = New C_event  
   set cm.CommandBarEvents=comandbars(..).control  
End Sub  
 
правда, когда мне надо было разместить 500 кнопок, я почему то предпочел написать 500 обработчиков.. не вручную, конечно..  
 
от недостатка опыта