perhaps
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case UCase$(Sh.Name)
Case "SHEET1"
If Not Intersect(Target, Sh.Range("A1:B100,C4:C58")) Is Nothing Then
colorCells Intersect(Target, Sh.Range("A1:B100,C4:C58")).Cells
End If
Case "SHEET2"
If Not Intersect(Target, Sh.Range("E2:E59")) Is Nothing Then
colorCells Intersect(Target, Sh.Range("E2:E59")).Cells
End If
End Select
End Sub
Sub colorCells(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
Bookmarks