L
L. Howard
if the rows above row 8 are empty or have text you can use the whole
Aha, I'll give that a go.
Actually the (3) I have been using only puts one blank row above the totals.
Also, how would I capture all those total cells in a With Statement so I can format them all at once?
Would want .Font Bold = true
.Interior.colorindex = 17
.Top border = xlMedium
.Bottom border = xlMedium
This is turning out much more complicated than I first thought.
Howard
column because SUM ignores text.
To get the result 3 rows under the last row you have to change the 3 to
11 if cells in rows(1:7) are blank:
If lRow > 8 Then _
Cells(lRow + 11, n) = WorksheetFunction.Sum(Columns(n))
Regards
Claus B.
--
Aha, I'll give that a go.
Actually the (3) I have been using only puts one blank row above the totals.
Also, how would I capture all those total cells in a With Statement so I can format them all at once?
Would want .Font Bold = true
.Interior.colorindex = 17
.Top border = xlMedium
.Bottom border = xlMedium
This is turning out much more complicated than I first thought.
Howard