Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
If Intersect(Me.[A1:C10], Target) Is Nothing Then Exit Sub
Target.Value = 1
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Rows.Count * Target.Columns.Count > 1 Then Exit Sub
If Intersect(Me.[A1:C10], Target) Is Nothing Then Exit Sub
Target.Value = 2: Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Rows.Count * Target.Columns.Count > 1 Then Exit Sub
If Intersect(Me.[A1:C10], Target) Is Nothing Then Exit Sub
Target.Value = Empty: Cancel = True
End Sub