Public Sub addCellMenu()
removeCellMenu 'just in case
With Application.CommandBars("Cell")
.Controls.Add(Type:=msoControlButton).Caption = "Routine1"
.Controls.Add(Type:=msoControlButton).Caption = "Routine2"
.Controls("Routine1").BeginGroup = True
.Controls("Routine1").OnAction = "Another"
.Controls("Routine2").OnAction = "YetMore"
End With
End Sub
Public Sub removeCellMenu()
On Error Resume Next
With Application.CommandBars("Cell")
.Controls("Routine1").Delete
.Controls("Routine2").Delete
End With
On Error GoTo 0
End Sub
