Hello

I use the following code to assign a color based on text input.

The code works perfectly to fulfill this task
.
By cons, it is possible for me to do a restore (crtl + Z)
or cancel an entry (crtl + Y)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Cell In Target
Select Case Cell.Value
Case "GAME1"
Cell.Font.ColorIndex = 3
Case "GAME2"
Cell.Font.ColorIndex = 4
Case "GAME3"
Cell.Font.ColorIndex = 5
Case Else
Cell.Font.ColorIndex = 56
End Select
Next
End Sub

Thank you for your helpTEST1.xlsm

Gibtoul