Try this on a COPY of your data, not the original.
Sub ChrisOK()
Range("e2").Select
Do Until ActiveCell.Value = ""
If Selection.Interior.Color = 16764057 And ActiveCell.Value > 0 Then
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub