On Mon, 12 Feb 2007 12:20:35 -0500, "Jon Peltier"
wrote:

or...

Dim cBar as commandbar
dim myMenu as CommandBarControl
For Each cBar in Application.Commandbars
If cBar.Type = msoBarTypeMenuBar then
set myMenu = cBar.Controls.Add(Type:=msoControlPopup)
' etc.
End If
Next

As always: thank you very much for your help!

--
Fredrik E. Nilsen