Help PLEASE

[zljordan]

Function getformula(r As Range) As String
Application.Volatile
If r.HasArray Then
getformula = "<-- " & " {" & r.FormulaArray & "}"
Else
getformula = "<-- " & " " & r.FormulaArray
End If
End Function
Function getformulaR(r As Range) As String
Application.Volatile
If r.HasArray Then
getformulaR = "--> " & " {" & r.FormulaArray & "}"
Else
getformulaR = "--> " & " " & r.FormulaArray
End If
End Function
Function GgetFormula(Rng As Range) As String
Application.Volatile True
GgetFormula = Application.Text(Rng.FormulaLocal, "")
End Function
tintercept
Function tintercept(yarray, xarray)
tintercept = Application.Index(Application.LinEst(yarray, xarray, , 1), 1, 2) / _
Application.Index(Application.LinEst(yarray, xarray, , 1), 2, 2)
End Function

tslope
Function tslope(yarray, xarray)
tslope = Application.Index(Application.LinEst(yarray, xarray, , 1), 1, 1) / _
Application.Index(Application.LinEst(yarray, xarray, , 1), 2, 1)
End Function

[Bob Phillips]

Consider yourself helped!

[Aussiebear]

Consider yourself helped!

:ipray: Simply stunning. I had to re read the question 14 times just in case I missed it.