Try something like.....(sums all values in column A of all sheets)

Sub aTotals()
Dim wS As Worksheet
Dim cTotal As Double, sRange As Range

For Each wS In Worksheets
With wS
Set sRange = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
cTotal = cTotal + Application.WorksheetFunction.Sum(sRange)
End With
Next wS
MsgBox cTotal
End Sub


--

Regards,
Nigel




"jhong" wrote in message
...
On Feb 1, 3:42 pm, "Nigel" wrote:
Please explain some more. When you say add do you mean "Sum" or "Copy", do
you mean the entire column of each row in Column on each sheet?

--

Regards,
Nigel


"jhong" wrote in message

...
Hi Nigel,

Thanks for the reply, i mean summing up data from A column from
different sheets within a workbook. I hate adding this values thru
link hope you can help me. Thanks in advance again!


Hi There,

I need your help, I want to do a macro that will add all values from
column A of allsheetswithin a workbook. Please please help me.

Thanks in Advance!

Jong- Hide quoted text -

- Show quoted text -