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
Bookmarks