add this line:
Cancel = True

"Jock" wrote in message
...
Hi Jacob,
I have used your code and, although it works ok, the right click menu
appears every time (cut, copy, past and so on) it is used.
How can I stop this appearing?
I already had a BeforeDoubleClick event into which I added your code.
Should it be in another on its own?
--
Traa Dy Liooar

Jock


"Jacob Skaria" wrote:

Try the below..Right click the Sheet tabViewCode and paste the below
code to
the code module...


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
Range("A" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = _
IIf(Target.Interior.ColorIndex = 15, 5, 15)
End If
Application.EnableEvents = True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Jock" wrote:

If I right click any cell in column "D", how can I get the cells A:M on
the
same row to be coloured grey. If right clicked again, A:M to be
restored to
original shade (blue)?

Thanks,
--
Traa Dy Liooar

Jock