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