Сумма n-ой ячейки по листам

[KlimoDi]

Всем доброго времени суток! Извините если подобный вопрос уже был, мне он на глаза не попался. Может кто сможет помочь в проблеме по Excel. Есть один документ из n листов. На каждом одна и та же таблица только с разными цифрами. На последнем листе идет свод таблиц в одну итоговую. Вопрос: как макросом сделать сумму какой-либо ячейки по всем листам. Заранее благодарна за ответ. (Excel 2003 либо 2007)

[doober]

Возможно такая функция подойдет

 Function Itog(RN As Range)
 Dim S_umm As Double
 Dim Adr As String
 Adr = RN.AddressLocal
 With ThisWorkbook
 For n = 1 To .Worksheets.Count - 1
 S_umm = S_umm + .Worksheets(n).Range(Adr)
 Next
 End With
 Itog = S_umm
End Function