エクセルVBAで配列同士の積を配列に格納する方法

Question

エクセルVBAで配列同士の積を配列に格納したいと考えているのですがうまくいきません。
具体的には以下のコードで、WorksheetFunction.Productを使用して簡潔に記載したいのですが、
WorksheetFunction.Productでは目的の処理はできないのでしょうか。

Function NormEx(ave00 As Double, ave01 As Double, ave02 As Double As Double)
Dim AA(20000), AB(20000), AC(20000) As Double
Dim OC As Variant
Dim i As Integer, x As Double
For i = 0 To 20000
x = i * 0.01
AA(i) = WorksheetFunction.NormDist(x, ave00, 10, True)
AB(i) = WorksheetFunction.NormDist(x, ave01, 10, True)
AC(i) = WorksheetFunction.NormDist(x, ave02, 10, True)
Next
OC = WorksheetFunction.Product(AA, AB, AC)
NormEx = OC(0)
End Function

Answer 1

配列だとループするしかないように思います。
シート上のセル範囲を対象にするのではだめですか。
配列をループするのと速度的には遜色ないです。

    'A1:C20000にデータがあるとして、
    With Range("D1:D20000")
        .FormulaLocal = "=A1*B1*C1"
        .Value = .Value
    End With