This will insert the Reports Menu just in front of Help, if it doesn't
already exist:

Dim ctlReports As CommandBarControl
With CommandBars(1)
On Error Resume Next
Set ctlReports = .Controls("Reports")
On Error GoTo 0
If ctlReports Is Nothing Then
Set ctlReports = .Controls.Add( _
Type:=msoControlPopup, _
Befo=.FindControl(Id:=30010).Index, _
Temporary:=True)
ctlReports.Caption = "Reports"
End If
End With


In article ,
kraljb wrote:

I am not a programmer, but somehow I got assigned this task for knowing
enough about excel functions.


I am having an issue, where I have a general custom menu called Reports
where I have a few macros running reports for a few people. However,
different people within that group have individual reports, as well as
individuals that do not have the general reports may have an individual
one.

The problem I am running into, while trying to be consistent across the
board, is that all the reports (individual or general) are trying to use
the same menu name: "Reports" so if an individual has multiple reports
from seperate macros they end up with 2-3 different menu choices when
all three macros are opened. I need a way to say If
reportmenudoesnotexist Then create reportmenu End If.