Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Target.Font.Name = "WingDings"
Target.Font.Size = 18
If Target = "o" Then
Target = "x"
Else
Target = "o"
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Cancel = True 'Prevent going into Edit Mode
Target.Font.Name = "WingDings"
Target.Font.Size = 18
If Target = "o" Then
Target = "x"
Else
Target = "o"
End If
End If
End Sub