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



--
HTH

Bob Phillips

"Darren" <darrenb.1@ntlworld.com> wrote in message
news:OC4NZJmSFHA.3372@TK2MSFTNGP10.phx.gbl...
> Hi,
>
> is it possible to customise the right click menu, ie add or move items?
>
> Darren
>
>