Hi

You could try this code
Sub loop_worksheets()
Dim MyArray, MyInt
sheet_count = ActiveWorkbook.Sheets.Count
'Changes this for your worksheets
MyArray = Array("Sheet1", "Sheet2", "Sheet3")
For j = 0 To sheet_count - 1
sname = MyArray(j)
Sheets(sname).Select
rowcount = Cells(Cells.Rows.Count, "c").End(xlUp).Row
Range("c" & rowcount + 1).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & rowcount & "]C:R[-1]C)"
Next
End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=561047