Private Sub Buttons_OnClick() 'for buttons Array MsgBox("clicked button") Dim id As String Dim Buttona As Object' As Button Set Buttona = Screen.ActiveControl 'error ...