VBA: Change text colour to red

[harky]

Hi,
I need a function not macro.

to change Column I , ERROR! to red.

e.g

ERROR! Pls check the file
ERROR! Pls check the folder

I know can use conditional formulas but conditional dont found at older excel format.
SO i like to use vba

 

[Fluff]

How about

Private Sub Workbook_Open()
   Dim Cl As Range
   Dim x As Long
   With Sheets("Sheet1")
      For Each Cl In .Range("I1", .Range("I" & Rows.Count).End(xlUp))
         x = InStr(1, Cl, "ERROR", vbTextCompare)
         If x > 0 Then
            Cl.Font.ColorIndex = xlAutomatic
            Cl.Characters(x, 5).Font.Color = vbRed
         End If
      Next Cl
   End With
End Sub