label right-click event

[av8tordude]

I would like to run a code using the mouse right-click button. Unfortunately Labels do not allow this option. The only available click-event are "Click" & DblClick. Can some assist me in accomplish this task.

Thanks

[Rob342]

Hi
Why are you using a label, these are for adding text to a sheet or form ?
Why not use a control button ?

Then you can code it by either:

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

' Put your code here or call a module and insert the code into the module.

End Sub[/vba]


or

[vba]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
' Your code here
End Sub[/vba]

I don't think there is a way via a label unless one of the experts knows different.

[mikerickson]

You can use the MouseUp event
[VBA]Private Sub Label1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If Button = 2 Then
MsgBox "Right button clicked"
End If
End Sub[/VBA]

[Rob342]

Hi Mike

Thanks for the info, i see the logic behind it, if you want to test for a value of the mouse click event.
rob342

[av8tordude]

Thank you mike. It's exactly what I was looking for!