Sum Function

[coquinn]

How do you use the EXCEL sum command function in VBA? Thanks.

 

[Andrew Poulsom]

Here is an example:

Sub Test()
    Dim Sh As Worksheet
    Dim Rng As Range
    Dim Result As Double
    Dim Arr() As Variant
    Set Sh = Worksheets("Sheet1")
    Set Rng = Sh.Range("A1:A10")
    Result = WorksheetFunction.Sum(Rng)
    MsgBox Result
    Arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    Result = WorksheetFunction.Sum(Arr)
    MsgBox Result
End Sub