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