I have a code like this

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
Target.Offset(0, 1) = Target

End Sub

in spite of cancel=true statement when I right click the target, the submenu
comes up and so the event code does not work. where is the mistake.