ArraySum

Function ArraySum(arr As Variant, Optional First As Variant, _
Optional Last As Variant) As Variant
Dim index As Long

If IsMissing(First) Then First = LBound(arr)
If IsMissing(Last) Then Last = UBound(arr)
For index = First To Last
ArraySum = ArraySum + arr(index)
Next
End Function