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
|