Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

BeforeRightClick event

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)     If IsNumeric(Target) And Not IsEmpty(Target) Then         Application.Dialogs(xlDialogFormatNumber).Show         Cancel = True     End If End Sub