Sum column with vary length issue

[DK340]

I am currently using the following code to sum a column of transaction amounts (dollars and cents) where the column varies in length and I am having an issue.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
<o> </o>
<o> </o>
Dim Total As Long<o></o>
For i = 2 To ActiveCell.Row - 1<o></o>
Total = Cells(i, ActiveCell.Column).Value + Total<o></o>
Next i<o></o>
ActiveCell.Value = Total<o></o>
<o> </o>
<o> </o>
<o> </o>
The problem that I seem to be having is the above is eliminating the cents and therefore shorting my total by a significant amount once the entire column is added together. Is there additional coding or other code that will keep this from happening. Thanks!<o></o>

 

[VoG]

Try

Dim Total as Double

You could actually do this using WorksheetFunction.Sum

 

[DK340]

That worked perfectly. Thank you so much.