Set NewMenuItem = .Add(msoControlButton)
NewMenuItem.BeginGroup = True
-or-
Application.CommandBars("Cell").Controls(3).BeginG roup = True
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel add-ins: compare, uniques, color sort, thesaurus,...)



"ZipCurs"
wrote in message
I am having good success using custom short cut menus, but I have one
aesthetic question. How do I get the partition lines like on the default
menu? (Like above and below "Insert Comment".
Thanks in advance.
ZipCurs