Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("K4")) Is Nothing And Target.Count = 1 Then
Target = "¤"
[M4] = "¡": [K2] = 1
End If
If Not Intersect(Target, Range("M4")) Is Nothing And Target.Count = 1 Then
Target = "¤"
[K4] = "¡": [K2] = 2
End If
End Sub