Here's my code for it. Change "(Tombstones)" to whatever you named your menu:
[vba]
Sub DeleteNewMenu()
Dim cb As CommandBarControl

For Each cb In Application.CommandBars("Menu Bar").Controls
If cb.Caption = "(Tombstones)" Then cb.Delete
Next
End Sub
[/vba]

And of course, if you're making this an add-in you need to have auto-open and auto-close routines:
[vba]
Sub Auto_Open()
AddNewMenu
End Sub

Sub Auto_Close()
DeleteNewMenu
End Sub
[/vba]