Right click menu

[SQUIDD]

Good Morning

So i am using right click to run some code, but having issues with the right click menu.

code below

if i click in column G, i do not get a right click menu, if i click in B i do get the right click menu.

PO_NUMBER is in column B
NOTE is in column G

Would anyone know what i am doing wrong, its driving me crazy, thanks

Dave

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim myShell As Object
If Cells(5, Target.Column).Value = "PO_NUMBER" Then
    If Not Intersect(Target, [A1:J1500]) Is Nothing Then
        With CHANGE_STATUS
            .TBPO = ActiveCell.Value
            .LOAD_PO.Value = True
        End With
        CHANGE_STATUS.Show vbModeless
        Exit Sub
    End If
End If

If Cells(5, Target.Column).Value Like "*NOTE*" Then
    If Not Intersect(Target, [A1:J1500]) Is Nothing Then
        With ADD_NOTE
            .TBPO = Cells(ActiveCell.Row, 2).Value
            .LOAD_PO.Value = True
        End With
        ADD_NOTE.Show vbModeless
        Exit Sub
    End If
End If

End Sub

 

[jasonb75]

With Cancel = True as the first line, you shouldn't be seeing a right click menu at all regardless of column.

The only thing that comes to mind is that you are setting EnableEvents to False in some other code and not setting it back to True when it finishes.