MakeArrayMidDoubles
From scripting
Function MakeArrayMidDoubles(InputArr As Variant) As Variant Dim MidArr() ReDim MidArr(UBound(InputArr) - 1) For X = 0 To UBound(InputArr) - 1 Dim FVal FVal = InputArr(X) Dim SVal SVal = InputArr(X + 1) MidArr(X) = (CDbl(FVal) + CDbl(SVal)) / 2 Next X MakeArrayMidDoubles = MidArr End Function