Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim cel As Range
On Error Resume Next
For Each cel In Range("A1:Z100")
If cel.Value = "REM" Or cel.Value = "CP" Or cel.Value = "ST-S" Then
cel.Interior.ColorIndex = 6
End If
Next cel
End Sub