Dear all brains,

I have already written an add-in that creates a menu called "Zenos"
however I am having some serious trouble adding menu items to that
menu by another add-in.

This is the code, if anyone has any ideas please let me know:

Dim tns As Object

Set tns = CommandBars("Worksheet Menu Bar").Controls("Zenos")
With tns
.Controls.Add(Type:=msoControlButton).Caption = "Daily Payments
Monitoring"
.Controls("Daily Payments Monitoring").OnAction = "TNS_report"
End With

Thanks,
Peter