title: How to apply Linest function in VBA?
body: <p>I trying to get a third order LinEst function in VBA. However, the error always come out as Expected array when it reaches Ubound(xl). </p>
  
  <pre><code>Option Explicit
  Sub RB()
  
  Dim xl As Range, e As Double
  Dim yl As Range, s As Variant
  Dim X
  
  
  
  With ThisWorkbook.Worksheets("Sheet1")
  Set yl = .Range(.Cells(17, 7), .Cells(93, 7))
  
  Set xl = .Range(.Cells(17, 1), .Cells(93, 1))
  
  ReDim arrX3(1 To UBound(xl), 1 To 3) As Double
  For i = LBound(xl) To UBound(xl)
  arrX2(i, 1) = xl(i, 1)
  arrX2(i, 2) = xl(i, 1) * xl(i, 1)
  arrX2(i, 3) = xl(i, 1) * xl(i, 1) * xl(i, 1)
  Next
  
  X = Application.LinEst(yl, arrX3)
  .Range(.Cells(12, 12), .Cells(15, 14)).Value = Application.Transpose(X)
  
  End With    
  End Sub
  </code></pre>