Totals across increasing number of worksheets
 

Is there a way to sum the range, or array, C14:T22 over an increasing number
of worksheets, displaying the value in the same cell of worksheet "Totals"?

Regards
Dylan Dawson

Totals across increasing number of worksheets
 

Sub Ttl()
Dim SumOne As Double, SumAll As Double
Dim i As Integer
Dim ws As Worksheet
Dim rng As Range

For i = 2 To Worksheets.Count
Set rng = Worksheets(i).Range("C14:T22")
SumOne = Application.Sum(rng)
SumAll = SumAll + SumOne
Next
Worksheets("Totals").Range("A1") = SumAll
End Sub

Mike F
"dd" <dd.dd wrote in message
...
Is there a way to sum the range, or array, C14:T22 over an increasing
number
of worksheets, displaying the value in the same cell of worksheet
"Totals"?

Regards
Dylan Dawson