CommandBar Question

[Ender Wheel]

I created a new item for the command bar using the code below but when I
click on Journal or Notes my program duplicates the item. It doesn't seem
to be calling the code again, just duplicating. Any ideas? Thanks.

With objExpl.CommandBars("Menu Bar")

Set MyButton = .Controls.Add(Type:=msoControlPopup, Before:=.Controls.Count)

MyButton.Caption = "&iManage"

MyButton.Visible = True

MyButton.Tag = "iManage"

End With