delete row when Worksheet_BeforeRightClick is active

[robertvdb]

I want to delete some rows in my Sheet, however - because Worksheet_BeforeRightClick is active - a Userform pops up.

Can I temporarily disable this event, when rightclicking on the row number at the left ?

 

[rlv01]

You can make the original right-click menu appear when you select some rows (entire rows) by re-coding your Private Sub Worksheet_BeforeRightClick event subroutine in the way shown in this example.

Original:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Original code
    MsgBox "Hello World!"
    Application.SendKeys ("{ESC}")
End Sub

Modified:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim rngTmp As Range

    Set rngTmp = Selection.EntireRow
    If Target.Address <> rngTmp.Address Then
        'Original code
        MsgBox "Hello World!"
        Application.SendKeys ("{ESC}")
    Else
        '
        'Nothing happens, normal menu appears.
        '
    End If
End Sub

 

[robertvdb]

Thank you rlv01 ! Your solution works fine !