Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Sub CreateSSMenu_Wcodestyle() Dim cbpop As CommandBarControl, cbctl As CommandBarControl, cbsub As CommandBarControl Call RemoveSSMenu_Wcodestyle Set cbpop = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Temporary:=True) With cbpop .Caption = "MenuTest" .Visible = True End With actvWb = ActiveWorkbook.Name cp = ActiveWorkbook.Path currAppFullPath = ActiveWorkbook.FullName Set cbsub = cbpop.Controls.Add(Type:=msoControlPopup) With cbsub .Enabled = False .BeginGroup = False .Caption = "" & currAppFullPath & "" End With End Sub
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.