Excel.Worksheet.BeforeRightClick.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
Worksheet.BeforeRightClick event (Excel)	vbaxl10.chm502075	vbaxl10.chm502075	Excel.Worksheet.BeforeRightClick	0263dd09-1648-d3c4-007e-15ef7b82092a	05/30/2019	medium

Worksheet.BeforeRightClick event (Excel)

Occurs when a worksheet is right-clicked, before the default right-click action.

Syntax

expression.BeforeRightClick (Target , Cancel)

expression A variable that represents a Worksheet object.

Parameters

Name	Required/Optional	Data type	Description
Target	Required	Range	The cell nearest to the mouse pointer when the right-click occurs.
Cancel	Required	Boolean	False when the event occurs. If the event procedure sets this argument to True, the default right-click action doesn't occur when the procedure is finished.

Remarks

Like other worksheet events, this event doesn't occur if you right-click while the pointer is on a shape or a command bar (a toolbar or menu bar).

Example

This example adds a new menu item to the shortcut menu for cells B1:B10.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ 
 Cancel As Boolean) 
 Dim icbc As Object 
 For Each icbc In Application.CommandBars("cell").Controls 
 If icbc.Tag = "brccm" Then icbc.Delete 
 Next icbc 
 If Not Application.Intersect(Target, Range("b1:b10")) _ 
 Is Nothing Then 
 With Application.CommandBars("cell").Controls _ 
 .Add(Type:=msoControlButton, before:=6, _ 
 temporary:=True) 
 .Caption = "New Context Menu Item" 
 .OnAction = "MyMacro" 
 .Tag = "brccm" 
 End With 
 End If 
End Sub

[!includeSupport and feedback]