Try this:

Sub abc()
Dim arr As Variant, i As Integer
arr = Application.Evaluate("LinEst({4;5;19},{1;3;5}^{1,2 ,3})")
For i = LBound(arr) To UBound(arr)
MsgBox arr(i)
Next
End Sub

"anh82tb via OfficeKB.com" wrote:

Please tell me how to express the following expression in VBA
Apllication.worksheetFunction.LinEst(array(4,5,19) ,array(1,3,5)^{1,2,3))
Thanks in advande

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200607/1