Need to put code in the MouseUp event. Something like this should get you started ..
[VBA]Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Button = xlSecondaryButton ThenApplication.CommandBars("Cell").ShowPopupEnd IfEnd Sub[/VBA]