Value of LINEST

Hi All,
I got problem when using the LINEST function (linear regression). How do one add the value of the slope to a cell?

I use the code below but I get the #VALUE! message in the cell. The cell's format is General.

   Dim v As Variant
   Dim x As Variant
   Dim Y As Variant
   x = Range("B2:B3")
   Y = Range("D2:D3")
   v = Application.LinEst(Y, x, True, True)
   Worksheets("Sheet1").Range("H1").Value = v

What is wrong here?

Cheers!

Ok I found the answer for a 2nd degree and I guess it will solve all my problems;

   Dim CurveFitParams As Variant
   Dim CurveFitA As Single 'Coefficient A of polynomial curve fit equation (Y = AX˛ + BX + C)
   Dim CurveFitB As Single 'Coefficient B of polynomial curve fit equation (Y = AX˛ + BX + C)
   Dim CurveFitC As Single 'Coefficient C of polynomial curve fit equation (Y = AX˛ + BX + C)
   Dim MinRow As Long
   Dim MaxRow As Long

   CurveFitParams = Application.LinEst(Range("B2:B5"), Application.Power(Range("D2:D5"), Array(1, 2)), True, 0)
   CurveFitA = Application.WorksheetFunction.Index(CurveFitParams, 1)
   CurveFitB = Application.WorksheetFunction.Index(CurveFitParams, 2)
   CurveFitC = Application.WorksheetFunction.Index(CurveFitParams, 3)

   Worksheets("Sheet1").Range("H3").Value = CurveFitA
   Worksheets("Sheet1").Range("H4").Value = CurveFitB
   Worksheets("Sheet1").Range("H5").Value = CurveFitC

Please remember to use code tags when posting any code.

Here is the offical message with links on explanation.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here