-----Original Message-----
where I have ...
Dim bn_all, ap_all, reuters_all, others_all, lat_all As
Long

Set bn_range = Worksheets("Input").Range("b" & row
& ":b40000")
Set ap_range = Worksheets("Input").Range("c" & row
& ":c40000")
Set reuters_range = Worksheets("Input").Range("d" & row
& ":d40000")
Set others_range = Worksheets("Input").Range("e" & row
& ":e40000")


bn_all = Application.WorksheetFunction.Sum(bn_range) '
= 835.5
ap_all = Application.WorksheetFunction.Sum(ap_range) '
= 447
reuters_all = Application.WorksheetFunction.Sum
(reuters_range) ' = 467
others_all = Application.WorksheetFunction.Sum
(others_range) '= 117

why does this:

lat_all = bn_all + ap_all + reuters_all + others_all =
1886 and not
1886.5 ????


even when I set lat_range
tia ...


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)
.

Because you defined your data as long !
try with variant or double