Hi All,

I got a probelm with Excel VBA. I have a range named as "MyRange" with currency data. I would like to add up all currency numbers in the range. I used the following codes:

Dim MyRange

Dim MyCurrency

MyRange=Range("A1:A3")

MyCurrency=Application.WorksheetFunction.Sum(MyRange)

MyCurrency returns only 0 whatever currency values in MyRange.

Please help and thanks in advance

Qingping