Private Sub Workbook_Open()
Dim Con As CommandBarControl, ConPop As CommandBarPopup
Dim ComBut As CommandBarButton
'Attempt to delete any menu just in case Excel was
'closed down improperly or crashed.
For Each Con In Application.CommandBars("Tools").Controls
If Con.Caption = "&References" Then
Con.Delete
End If
Next
'Add a new popup control called References
Set ConPop = Application.CommandBars("Tools").Controls.Add(msoControlPopup)
ConPop.BeginGroup = True
ConPop.Caption = "&References"
'Now add a button to References
Set ComBut = ConPop.Controls.Add(msoControlButton)
ComBut.Caption = "&Sub item 1"
ComBut.OnAction = "ProcedureName1"
ComBut.FaceId = 2152 'You can have choose from one of the hundreds of FaceIDs available
'Now add a second one, you can do this for as many items as you want
Set ComBut = ConPop.Controls.Add(msoControlButton)
ComBut.Caption = "&Sub item 2"
ComBut.OnAction = "ProcedureName2"
ComBut.FaceId = 33 'You can have choose from one of the hundreds of FaceIDs available
End Sub