VBA: Gør negavite værdier røde

Jeg har et range hvor jeg gerne vil have alle negative værdier markeret med rødt.
Jeg har lavet følgende:

b = [c5].CurrentRegion

For Each c In b
    If c < 0 Then
    c.Font.ColorIndex = 3
    Else
    [c5].Font.ColorIndex = 1
    End If
Next

i stedet for at farve [c5] skal den ændre farven for den aktuelle celle. Forslag som er mere effektive modtages ligeledes.