Custom Excel Right-Click Menus

'Alters the right click menu in a worksheet
Sub AlterWorkSheetPopup()
Dim oCtrl As Object
With Application.CommandBars("Cell")
'Clear the existing menus
For Each oCtrl In .Controls
oCtrl.Delete
Next
'Add a new menu
With .Controls.Add(msoControlButton)
.Caption = "Reset menus"
.OnAction = "Test"
End With
End With
End Sub

'Alters the right click menu in a chart
Sub AlterWorkChartPopup()
Dim oCtrl As Object
With Application.CommandBars("Plot Area")
'Clear the existing menus
For Each oCtrl In .Controls
oCtrl.Delete
Next
'Add a new menu
With .Controls.Add(msoControlButton)
.Caption = "Reset Menus"
.OnAction = "Test"
End With
End With
End Sub

' Routine will be called by the new menu items, to reset menus to default
Sub Test()
' Reset the menus
Application.CommandBars("Cell").Reset
Application.CommandBars("Plot Area").Reset
MsgBox "Reset menus to default succeeded!"
End Sub