Conditional formating 7 conditions

Hi all,

I am running XL 2003 and it gives me only 3 conditions on conditional formating. But I need 7.
I have a code but I can't adapt it to my new project as layout is totally different. Could someone have a look where changes need to be made in a code?

Cells to be affected are K12:AE12

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 4 Then
ActiveCell.Font.ColorIndex = 1
If ActiveCell.Value = "Black" Then ActiveCell.Font.ColorIndex = 2
If ActiveCell.Value = "Orange" Then ActiveCell.Interior.ColorIndex = 44
If ActiveCell.Value = "Yellow" Then ActiveCell.Interior.ColorIndex = 6
If ActiveCell.Value = "Pink" Then ActiveCell.Interior.ColorIndex = 38
If ActiveCell.Value = "Blue" Then ActiveCell.Interior.ColorIndex = 41
If ActiveCell.Value = "Green" Then ActiveCell.Interior.ColorIndex = 4
If ActiveCell.Value = "Red" Then ActiveCell.Interior.ColorIndex = 3
If ActiveCell.Value = "Black" Then ActiveCell.Interior.ColorIndex = 1
End If
End Sub


Thanks a lot!

Maybe this one

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    Dim Rng As Range
    Set Rng = Range("K12:AE12")
    If Not Intersect(Target, Range("A1:BB65535")) Is Nothing Then
        For Each Cell In Rng
            With Cell
                If .Column = 4 Then .Font.ColorIndex = 1
                If .Value = "Black" Then .Font.ColorIndex = 2
                If .Value = "Orange" Then .Interior.ColorIndex = 44
                If .Value = "Yellow" Then .Interior.ColorIndex = 6
                If .Value = "Pink" Then .Interior.ColorIndex = 38
                If .Value = "Blue" Then .Interior.ColorIndex = 41
                If .Value = "Green" Then .Interior.ColorIndex = 4
                If .Value = "Red" Then .Interior.ColorIndex = 3
                If .Value = "Black" Then .Interior.ColorIndex = 1
            End With
        Next Cell
    End If
End Sub

Please note you should put CODE tags around your code.

' Cells to be affected are K12:AE12

' Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K12:AE12")) Is Nothing Then Exit Sub
With Target
    .Font.ColorIndex = 1
    If .Value = "Black" Then .Font.ColorIndex = 2
    If .Value = "Orange" Then .Interior.ColorIndex = 44
    If .Value = "Yellow" Then .Interior.ColorIndex = 6
    If .Value = "Pink" Then .Interior.ColorIndex = 38
    If .Value = "Blue" Then .Interior.ColorIndex = 41
    If .Value = "Green" Then .Interior.ColorIndex = 4
    If .Value = "Red" Then .Interior.ColorIndex = 3
    If .Value = "Black" Then .Interior.ColorIndex = 1
End With
End Sub

Regards

No... Please take a look at code once again I've just edited it.
And can you explain, what should this part of code to do? Check whether cells column number is 4 and then color its font color?

What about this one. Seems it worked..

Dim Cell As Range
Dim Rng As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Rng = Range("K12:AE12")
    For Each Cell In Rng
        With Cell
            .Font.ColorIndex = 1
            If .Value = "SUN" Then .Font.ColorIndex = 2
            If .Value = "MON" Then .Interior.ColorIndex = 44
            If .Value = "TUE" Then .Interior.ColorIndex = 6
            If .Value = "WED" Then .Interior.ColorIndex = 38
            If .Value = "THU" Then .Interior.ColorIndex = 41
            If .Value = "FRI" Then .Interior.ColorIndex = 4
            If .Value = "SAT" Then .Interior.ColorIndex = 3
            If .Value = "SUN" Then .Interior.ColorIndex = 1
        End With
    Next Cell
End Sub

BTW great workbook))

PS Real Madrid vs Barcelona has just started... I'll enjoy the game))) Hope Barsa wins))

The reason that the Worksheet Change event is not working is that the cells you asked to monitor contain formulae. Changes in formulae do not trigger the Change event.

Contaminated's solution uses the Selection Change event. The only down side is that it will reformat all those cells every time you move between cells. It may be no big deal but it is an overhead you need to be aware of.

Regards