Stop right click menu showing after macro has run

[Chewyhairball]

Hi guys

I had a bit of code that when i right clicked on a cell in a range the right click menu showed up with some of my own links to macros.

I decided i would rather have a popup menu show up when i right click so made the adjustments and it works fine....except for once i have made my selection and run the macro the 'standard'
right-click menu shows up.

Is there a way i can stop it doing this after i have run my chosen macro from the popup menu.

thanks

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim NameColumn As Range
Set NameColumn = Range("d8:d50")

If Not Application.Intersect(Target, NameColumn) Is Nothing Then
Call CreatePopUpMenu2

End If

End Sub

 

[Chewyhairball]

i found it

cancel = true

at the end of the code

could it have been more obvious

 

[Jimmypop]

Hi there

Does the following work... Untested seeing as I do not have the code for CreatePopUpMenu...

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = TRUE
    Dim NameColumn  As Range
    Set NameColumn = Range("d8:d50")
    If Not Application.Intersect(Target, NameColumn) Is Nothing Then
        Call CreatePopUpMenu2
    End If
End Sub

 

[Chewyhairball]

Hi there

Does the following work... Untested seeing as I do not have the code for CreatePopUpMenu...

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = TRUE
    Dim NameColumn  As Range
    Set NameColumn = Range("d8:d50")
    If Not Application.Intersect(Target, NameColumn) Is Nothing Then
        Call CreatePopUpMenu2
    End If
End Sub

thanks Jimmypop. I added cancel=true to the end of the code and it worked

 

[Jimmypop]

thanks Jimmypop. I added cancel=true to the end of the code and it worked

I saw that..lol... I think we posted at exactly the same time