‘CODE 1 BY LEARN MORE
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range(“C2:Z17”)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Selection.Interior.Color = RGB(0, 255, 0)
Selection.Value = “B”
End Sub
”CODE 2 BY LEARN MORE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range(“C2:Z17”)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Selection.Interior.Color = RGB(255, 255, 255)
Selection.Value = “”
End Sub