Option Explicit


Sub Aacro1()
'
Dim ToolsMenu As CommandBarPopup
Dim NewMenuItem As CommandBarButton
'
MsgBox VarType(ToolsMenu)
MsgBox VarType(Application.CommandBars("Worksheet Menu Bar").Controls("Tools"))
'
Set ToolsMenu = Application.CommandBars("Worksheet Menu Bar").Controls("Tools")
Set NewMenuItem = ToolsMenu.Controls("New Command")
Set NewMenuItem = ToolsMenu.Controls.Add(Type:=msoControlButton)
'
NewMenuItem.Caption = "New Command"
NewMenuItem.OnAction = "SayHello"
'
End Sub




Sub SayHello()
MsgBox "Hello"
End Sub