Schriftfarbe gleich wie Hintergrundfarbe über VBA

folgendes modul habe ich eingefügt:

Option Explicit
Sub Farbe()
Dim c As Range
For Each c In Range("E2:AK4,E7:AK8")
On Error Resume Next
c.Font.ColorIndex = c.Interior.ColorIndex
Next
End Sub

leider funktioniert es nicht. was kann falsch sein?