Hi all

I have some code on a worksheet that basically dictates that the colour of text in column F is white unless the values of cells in column H are between 1-5 (see below).

On my Excel 2007, everything works fine and when a user selects a value between 1-5 in column H, it shows up (in black) the value of the relevant cell in column F.

However, in Excel 2003 there seems to be a delay in when this font colouring happens, and I was wondering if anyone knew why? (Unfortunately, most of the users of this worksheet will still be on Excel 2003.)

In 2003, when I select a value in H, I then need to navigate away from excel, then come back to it, and only then does the cell in column F show up as black - so is there a workaround for this? I'd be really grateful for any assistance!

Best wishes

Diane

    ' Data Validation List of numbers 1-5 and Select Score and default of ENTER SKILL LEVEL
    
    Range("H4:H25").Select
    Application.CutCopyMode = False
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="<<Enter your Skill Level>>, 1, 2, 3, 4, 5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "Please select a Skill Level between 1-5"
        .ShowInput = True
        .ShowError = True
    End With
    With Selection.Interior
        .ColorIndex = 2
    End With
    ' Conditional Formal on column F to show values when 1-5 entered in column H
    Range("F4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(H4>0,H4<6)"
    With Selection.FormatConditions(1).Font
        .Color = 1
    End With