Clique com o botão direito para chamar uma macro
Aqui está um código que permitirá ao usuário selecionar sua macro no menu padrão que aparece depois de clicar com o botão direito do mouse em uma célula.
1. Coloque o seguinte código na janela de código ThisWorkbook
Private Sub Workbook_Open () Dim MyMenu As Object Set MyMenu = Application.ShortcutMenus (xlWorksheetCell) _ .MenuItems.AddMenu ("This is my Custom Menu", 1) With MyMenu.MenuItems .Add "MyMacro1", "MyMacro1", 1 ,, "" .Add "MyMacro2", "MyMacro2",, 2,, "" End With Set MyMenu = Nothing End Sub
2. Coloque o seguinte código em um módulo
Public Sub mymacro1 () MsgBox "Macro1 em um menu de atalho" End Sub Public Sub mymacro2 () MsgBox "Macro2 em um menu de atalho" End Sub
3. Feche sua pasta de trabalho e abra novamente!
