Add up values from across worksheets

[Alpacino]

Hi peeps,

I like a macro that will add up the same cell value from all worksheets in workbook but not in sheet1.
Eg I would like cells c5 in each worksheet add up and put in sheet1 C5

Thank you in advance

 

[AD_Taylor]

Sub AddUpCells()

Dim intTotal As Integer
Dim currCellRow As Integer
Dim currCellCol As integer

Dim ws As Worksheet

currCellRow = ActiveCell.Row
currCellCol = ActiveCell.Column

intTotal = 0

For each ws in ActiveWorkbook

If ws.Name <> "Sheet1" Then

intTotal = intTotal + Cells(currCellRow, currCellCol).Value

End If

Next ws

ActiveCell.Value = intTotal

End Sub

Should give you what you want. Bear in mind I haven't tested this yet.