msoControlButtonPopup "Invalid Procedure Call"
I'm trying to create a Custom (blank) CommanBarPopup of Type:=msoControlButtonPopup (would prefer msoControlSplitButtonPopup). Microsofts website hasn't helped at all. Here's what I've got so far.
Sub Create_MyBar()
Dim Bar As CommandBar
Dim Pop As CommandBarPopup
Set Bar = CommandBars.Add("My Bar")
Set Pop = Bar.Controls.Add(msoControlButtonPopup)
End Sub
On the Line "Set Pop = Bar.Controls.Add(msoControlButtonPopup)" I get an "Invalid Procedure Call".