Hi again,

Am Thu, 6 Nov 2014 19:32:30 +0100 schrieb Claus Busch:

Sub MultiSum()

that you see the sum cells immediately:

Sub MultiSum()
Dim i As Long, LRow As Long
Dim myStart As Long
Dim mySum As Double

With ActiveSheet
LRow = .Cells(Rows.Count, 3).End(xlUp).Row
myStart = 2
For i = myStart To LRow
mySum = 0
Do
mySum = mySum + .Cells(i, 3)
i = i + 1
Loop While Len(.Cells(i, 3)) < 0
.Cells(i, 3) = mySum
.Cells(i, 3).Font.Bold = True
myStart = i + 1
Next
End With

End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional