I have done some research and thought that I had this figured out, but it is
not giving me the result that I am looking for. I am trying to add a divider
to a drop down list between different macros. I thought this was done by the
BeginGroup property, but it is not adding the divider. I have posted a
section of my code below. Can anyone tell me if I am going about this wrong?
Any help would be great. Thanks, Jason



Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
Set cmdBarMenu = cmdBar.Controls.Add(Type:=msoControlPopup,
temporary:=True)
With cmdBarMenu
.Caption = "Tools"
.Tag = "JJT"
End With

Set cmdBarMenuItem = cmdBarMenu.Controls.Add(Type:=msoControlButton)
With cmdBarMenuItem
.Caption = "Merge"
.OnAction = "MergeCells"
.Tag = "JJT"
.FaceId = 798
End With

cmdBarMenu.BeginGroup = True

Set cmdBarMenuItem = cmdBarMenu.Controls.Add
With cmdBarMenuItem
.Caption = "Unmerge"
.OnAction = "UnmergeCells"
.Tag = "JJT"
.FaceId = 800
End With