It was a BIG help Nigel!! Thank you! Thank you!!


On Feb 1, 10:20*pm, "Nigel" wrote:
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 -- Hide quoted text -

- Show quoted text -