2 out of 2 rated this helpful - Rate this topic

Worksheet.BeforeRightClick Event (Excel)

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

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.

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).

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

Community Additions

ADD
Show:
© 2014 Microsoft. All rights reserved.