VBA Excel to Double Click change to checkmark or x

 Note that to do this, you need to set the font of the affected cells to Winding 2 first:

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     If Not Intersect(Target, Range("B1:B10")) Is Nothing Then         Application.EnableEvents = False         If ActiveCell.Value = ChrW(79) Then             ActiveCell.ClearContents             ActiveCell.Value = ChrW(80)         Else             ActiveCell.Value = ChrW(79)         End If         Cancel = True     End If     Application.EnableEvents = True End Sub

This is modified from: https://www.extendoffice.com/documents/excel/3923-excel-double-click-for-check-mark.html