Hi Rob,


Sub test()
Const cInterval = 24
Dim rngS As Range, rngD As Range, i As Long

Set rngS = Range("A1")
Set rngD = Range("C1")
For i = 0 To 744 - 1 Step cInterval
rngD.Offset(i).Value =
WorksheetFunction.Sum(rngS.Offset(i).Resize(cInte rval))
Next
End Sub


pretty good :o)

Thanks a lot and have a nice day!

Markus