Sub redyear()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
c = Cells(i, 1).Value
y = 1
Do
x = InStr(y, c, " "): y = x + 1
If x > 0 Then
If Val(Trim(Mid(c, y, 5))) > 0 Then
With Cells(i, 1).Characters(Start:=x, Length:=5).Font
.Bold = True
.Color = vbRed
End With
End If
End If
Loop Until x = 0
Next
End Sub