Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 6 Or Target.Column <> 19 Or Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then Target.Value = "ü": Target.Offset(, 1).Interior.Color = &HFF& _
Else Target.Value = "": Target.Offset(, 1).Interior.Color = &H929292
End Sub