Sum excel cells together using vba.

[gjsala]

I'm looking to sum many excel cells together with the following code but instead of adding the cells together it only appends the numbers and giving a huge number for example 8.71201E+37
instead of 1507. What else can I use? Thanks in advance!

Do While Cells(r + 1, 2) <> ""
tmp1 = Cells(r,5)
tmpTotal = tmpTotal + tmp1
Loop

 

[SkipVought]

Why would you not use the spreadsheet SUM() function without a loop???

dim tmpTotal as single, r as long
Do While Cells(r + 1, 2).value <> ""
    if IsNumeric(Cells(r,5).value) then _
       tmpTotal = tmpTotal + Cells(r,5).value
    r = r + 1
Loop

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}