Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function SCTest() Dim cmbShortcutMenu As office.CommandBar Dim ctlCBarControl As CommandBarControl Set cmbShortcutMenu = CommandBars.Add("Shortcut_Test", msoBarPopup, False, False) 'Show selected outcomes Set ctlCBarControl = cmbShortcutMenu.Controls.Add(msoControlButton) With ctlCBarControl .Caption = "Test" .OnAction = "=forms!frmSCTest.SC_Function()" .Tag = .Caption End With Set cmbShortcutMenu = Nothing End Function
Public function SC_Function() msgbox "Hello" End function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.