Løkker og sum

Hej
Jeg har lidt problemer med at lave nogle udregninger. Jeg skal gennem løbe et regneark, for at 28 felter's værdi ikke overstiger 32, i flere rækker, en af gangen. Hvis værdien overstiger 32 skal feltet farves rødt.

Sub Udregningen()
Dim række As Integer
Dim felt As Integer
Dim dato As Integer
    For række = 5 To 28
        ActiveSheet.Range (b1.offset(række, 0))
        Fyldfarve_grøn
        For felt = dato - 28 To dato
            If Sum(a1.offset(række,felt):a1.offset(række,felt+28)) < 32 Then Fyldfarve_hvid Else Fyldfarve_rød
        Next felt
    Next række
End Sub
Sub Fyldfarve_hvid()
    Selection.Interior.ColorIndex = xlNone
End Sub
Sub Fyldfarve_grøn()
    Selection.Interior.ColorIndex = 4
End Sub
Sub Fyldfarve_rød()
    Selection.Interior.ColorIndex = 3
End Sub

Håber der er en der kan hjælpe.