Totals across increasing number of worksheets

[dd]

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

 

[Mike Fogleman]

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