On Feb 12, 3:39*pm, gary wrote:
On Feb 12, 8:21*am, merjet wrote:

Oops. I accidentally posted before finishing. Make that:

Sub MySubtotals()
* * For iCol = 2 To 4
* * * * Cells(5, iCol) = Application.Sum(Range(Cells(2, iCol),
Cells(4, iCol)))
* * Next iCol
End Sub

I've sent my spreadsheet to Don.

Didn't get it. did you send to dguillett1 @gmail.com