Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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