Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A11") ) Is Nothing Then
With Target
.Font.Name = "Wingdings"
.Font.Size = 14
If .Value = Chr(111) Then
.Value = Chr(254)
Else
.Value = Chr(111)
End If
.Offset(0, 1).Select
End With
End If
End Sub
Проблема: как сделать, чтобы флажок не отображался в ячейках A4 и A8?
На мой взгляд выбрано неудачное событие - выделение ячейки: ведь есть опасность, что ячейка будет выделена нечаянно. Я бы поменял событие: или двойной клик или правый клик.