Loop through worksheets & calculate sum

[robgee76]

I have a workbook that will have a variable number of sheets in it.
I need to loop through the sheets (except one named "Example" and one named "Summary&quot and
calculate the sum of the values that are located in the same cell on each sheet (D42, for example).

I then want this result to be displayed on the summary sheet, in cell C3 for example.

Can anyone help me out?

Thanks.

 

[jebenson]

This code will do it

Dim SumValue as Integer

SumValue = 0

For i = 1 To Sheets.Count
If Sheets(i).Name = "Example" or Sheets(i).Name = "Summary" Then
'do nothing
Else
Sheets(i).Activate
ActiveCell("A1&quot.Select 'put reference to cell
'to be summed here

SumValue = SumValue + ActiveCell.Value
EndIf
Next i

Sheets("Summary&quot.Activate

ActiveCell("A1&quot.Select 'put reference to cell
'to hold summary here

ActiveCell.Value = SumValue

I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson