Assuming that sheets Jan - Dec are sheets 1 - 12 and that your total
will be on sheet 13:

For x = 2 To 4
For y = 4 To 10
For z = 1 To 12
num1 = num1 + Worksheets(z).Cells(x, y).Value
Next z
Worksheets(13).Cells(x, y).Value = num1
num1 = 0
Next y
Next x

Let me know how that workd out. - Pikus


---
Message posted from http://www.ExcelForum.com/