Adding the cells of a column

[meghaAgrawal]

I need to add a number of cells. They all are in the same column. I have row numbers and column number values stored in integer variables. I want to store their sum in a new variable, say total. Following does not work - please advise how should I do it

total = SUM(cells(rowStart, col), cells(rowEnd, col))

Thanks!

 

[PHV]

Something like this ?
For r = rowStart To rowEnd
total = total + Cells(r, col).Value
Next r
You may also take a look at WorksheetFunction

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[meghaAgrawal]

Yes thats one solution. But I want to avoid the loop. Like how it happens in formula - where we can specify the cell range. The only problem is my cell range is determined at run time and I cannot harcode something like sum(A2:A8). Whatever I have is in variables.

 

[PHV]

Something like this ?
total = Application.WorksheetFunction.Sum(Range(Cells(rowStart, col), cells(rowEnd, col)))



Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[meghaAgrawal]

Perfect! That's what I was looking for - thank you very much!