Следующий код, помещённый в VBA редакторе на соответствующий лист, позволяет двойным кликом левой кнопки мыши по ячейке в первом столбце устанавливать в ней попеременном галочку, либо крестик.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
Select Case .Value
Case Is = "a"
.Font.Name = "Marlett"
.Value = "r"
Case Is = "r"
.Font.Name = "Marlett"
.Value = "a"
Case Else
.Font.Name = "Marlett"
.Value = "a"
End Select
Cancel = True
End If
End With
End Sub
Результат работы макроса выглядит следующим образом: