Run time error 424

[dineshsilicon]

Hi All,

This script suddenly not working.Yesterday it was working with excel 2007, now am using with excel 2003.its throwing error ("Run time error 424").

Sub ColourCell()
'Colour cell in range and 1 next to it if it meets criteria
Dim cell As Range
For Each cell In Range("E2:E25500")
If cell.Value = 5 Then
cell.Interior.Color = XlRgbColor.rgbRed
ElseIf cell.Value = 4 Then
cell.Interior.Color = XlRgbColor.rgbOrange
ElseIf cell.Value = 3 Then
cell.Interior.Color = XlRgbColor.rgbGold
ElseIf cell.Value = 2 Then
cell.Interior.Color = XlRgbColor.rgbYellow
ElseIf cell.Value = 1 Then
cell.Interior.Color = XlRgbColor.rgbLightYellow
End If

Next cell

End Sub

Error!!!!!

("Run time error 424").


Poiting the line -> "cell.Interior.Color = XlRgbColor.rgbYellow"

could you pls help me to resolve it, only after solving this issue i can try the next code thhat you gave above

[arlu1201]

Read up some more on this error. This is what i found online -

http://www.pcaholic.com/blog-compute...ime-error-424/

[TMS]

I don't think those constants are defined/available in Excel 2003.

In Excel 2007:

?xlrgbcolor.rgbRed
255
?xlrgbcolor.rgborange
42495
?xlrgbcolor.rgbgold
55295
?xlrgbcolor.rgbyellow
65535
?xlrgbcolor.rgblightyellow
14745599

You could try changing the values to those listed above. No guarantees though.

Regards