Este código faz com que você insira uma macro em um menu suspenso, como quando você clica com o botão direito do mouse no Excel.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo erro
Application.CommandBars("cell").Controls("MENSAGEM").Delete
Application.CommandBars("cell").Controls("LIMPAR").Delete
Exit Sub
erro:
End Sub
Private Sub Workbook_Open()
Dim NewControl As CommandBarControl
Dim NewControl2 As CommandBarControl
Set NewControl = Application.CommandBars("cell").Controls.Add
With NewControl
.Caption = "MENSAGEM"
.OnAction = "chamar"
.BeginGroup = True
.FaceId = 351
End With
Set NewControl2 = Application.CommandBars("cell").Controls.Add
With NewControl2
.Caption = "LIMPAR"
.OnAction = "chamar"
.BeginGroup = True
.FaceId = 351
End With
End Sub
