Worked fine for me. the formula in B12 was

=C12*1+D12*2+E12*3+5
copied down to 18. Then in the immediate window:

v = Range("B12:B18")
v1 = Range("C12:E18")
v2 = Application.Linest(v,v1,True,false)
? v2(1)
3
? v2(2)
2
? v2(3)
0.999999999999999
? v2(4)
5.00000000000001

--
Regards,
Tom Ogilvy


"jobxyz" wrote in message
...
Thanks Michel

Your solution works fine for a simple X array. The problem arrises when x
is
a 2D array - which is what I need

"michelxld" wrote:


Hello

for the linest Function , you may try


Dim y_connus(), x_connus()
y_connus = Array(5, 2, 1)
x_connus = Array(6, 3, 4)
Range("A1") = WorksheetFunction.LinEst(y_connus, x_connus)


Regards ,
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile:
http://www.excelforum.com/member.php...o&userid=17367
View this thread:
http://www.excelforum.com/showthread...hreadid=496012