Hi,
I am looking for help w.r.t. Onaction property.
I got error while executing this program.
Please advice where I went wrong.
[VBA]
Private Sub TestM()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
iHelpMenu = cbMainMenuBar.Controls("Help").Index
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpMenu)
cbcCutomMenu.Caption = "&Menu"
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "A&nt"
.OnAction = "ANT"
End With
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "&OT"
.OnAction = "OT"
End With
With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "LA"
.OnAction = "LA"
End With
Set cbcCutomMenu = cbcCutomMenu.Controls.Add(Type:=msoControlPopup)
cbcCutomMenu.Caption = "Mo&re"
With cbcCutomMenu.Controls.Add(Type:=msoControlButton) 'Added a contol to the sub menu
.Caption = "&Charts"
.FaceId = 420
.OnAction = "ChartSheet"
End With
End Sub
Private Sub ANT()
msgbox "ANT"
End Sub
Private Sub OT()
msgbox "OT"
End Sub
Private Sub LA()
msgbox "LA"
End Sub
Private Sub ChartSheet()
msgbox "ChartSheet"
End Sub
[/VBA]