Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E5:E14")) Is Nothing Then
Select Case Target.Row
Case 5
Target.Value = IIf(Target.Value = "þ", "¨", "þ")
[E6:E14] = IIf(Target.Value = "þ", "þ", "¨")
Case 6 To 14
Target.Value = IIf(Target.Value = "þ", "¨", "þ")
[e5] = IIf(Application.CountIf([e6:e14], "þ") <> 9, "¨", "þ")
End Select
[b5].Activate
End If
End Sub