Microsoft Excel - how to display a custom context menu in excel 2007

In a separate module which have named "DMcRitchie_RClick" I have the following code:

Option Explicit

'see comments below
Sub GetFormula_sub()
  If ActiveCell.Column = 1 Then
   ActiveCell.Formula = "=personal.xls!GetFormula(" & _
     ActiveCell.Offset(-1, 0).Address(0, 0) & ")"
   MsgBox "couldn't use cell to left so setting to use from cell above"
  Else
     ActiveCell.Formula = "=personal.xls!GetFormula(" & _
     ActiveCell.Offset(0, -1).Address(0, 0) & ")"
  End If
End Sub

Sub EndTotal_sub()
    Dim end_data As Long   'dmcritchie RClick 2005-05-28
   Range(ActiveCell.Address, _
     Cells(Rows.Count, ActiveCell.Column).End(xlUp).Address).Select
   end_data = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
   ActiveSheet.Cells(end_data + 1, ActiveCell.Column).Formula = _
     "=SUBTOTAL(9," & ActiveSheet.Cells(2, ActiveCell.Column).Address(1, 0) _
     & ":OFFSET(" & ActiveSheet.Cells(end_data + 1, _
     ActiveCell.Column).Address(0, 0) & ",-1,0))"
End Sub

Sub Clear_Constants()     'D.McRitchie RClick 2005-11-19 (also see insrtrow.htm)
   '-- provide for in rightclick  cell, row, and column commandbars
   Dim rng As Range  'prevent expansion of a single cell selection
   Set rng = Intersect(Selection, Selection.SpecialCells(xlConstants))
   If rng Is Nothing Then
     MsgBox "No constants in selection area(s) -- no removal"
   Else
     rng.ClearContents
   End If
End Sub

'change to personal.xls  if that is what you use
'see also  ChipPearson_Module for Chip Pearson's  RClick menus
'these are setup in  module1 in an Auto_Open
'Documentation in:  http://www.mvps.org/dmcritchie/excel/rightclick.htm



See this link:
http://www.mvps.org/dmcritchie/excel/rightclick.htm

Option Explicit

Public Const APPNAME As String = "Custom Right-Click Menu"

Sub CreateToolsMenu()
    Dim cb As CommandBar, cbMenu As CommandBarControl, cbMenuItem As CommandBarButton
    Call DeleteToolsMenu
    Set cb = Application.CommandBars("Worksheet Menu Bar")
    Set cbMenu = cb.Controls("Tools")
    Set cbMenuItem = cbMenu.Controls.Add(Type:=msoControlButton, before:=1)
    cbMenuItem.Caption = APPNAME
    cbMenuItem.State = msoButtonUp
    cbMenuItem.OnAction = "Mod_Menu.CreateCellsMenu"
End Sub

Sub DeleteToolsMenu()
    On Error Resume Next
    Application.CommandBars("Tools").Controls(APPNAME).Delete
    DeleteCellsMenu
End Sub

Sub CreateCellsMenu()
    Dim cItem As CommandBarControl
    Dim cb As CommandBarControl, cbMenuItem As CommandBarButton
    Set cb = Application.CommandBars("Worksheet Menu Bar").Controls("Tools")
    Set cbMenuItem = cb.Controls(APPNAME)
    If cbMenuItem.State = msoButtonUp Then
        For Each cItem In Application.CommandBars("Cell").Controls
            Select Case cItem.Caption
            Case "Cu&t", "&Copy", "&Paste", "&Delete..."
            Case Else
                cItem.Delete
            End Select
        Next cItem
        cbMenuItem.State = msoButtonDown
    Else
        Application.CommandBars("Cell").Reset
        cbMenuItem.State = msoButtonUp
    End If
End Sub

Sub DeleteCellsMenu()
    Application.CommandBars("Cell").Reset
End Sub

This will add an option to your Tools menu (right at the top) labeled Custom Right-Click Menu.
This acts as a toggle button, you can turn it on and off, thus creating
In your ThisWorkbook module put this code...

Option Explicit

Private Sub Workbook_AddinInstall()
    Call CreateToolsMenu
End Sub

Private Sub Workbook_AddinUninstall()
    Call DeleteToolsMenu
End Sub

Private Sub Workbook_Open()
    Call CreateToolsMenu
End Sub
a custom menu (what you specified) and the normal (default) menu.