Hi JP,

I have now set the reference that Jim referred to and everything is working.

Thanks guys,
Fred

"JP" wrote:

Fred, did you set the reference like Jim mentioned? If so, is it still
not working?


Thx,
JP

On Mar 4, 7:39 am, Fred Davis
wrote:
Hi JP,

I don't know if it's possible to attach files to these posts so here is the
code lonhand:

Sub AddMenus()
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCutomMenu As CommandBarControl
--snip--


Thanks for your interest.
Fred