Not tested

Function fstr(a As Integer, m As Integer) As Double

fstr = ThisWorkbook.Sheets("sfactors").Cells(a, m+1).Value

End Function
If you're reading the WS data from inside a macro, you can use the same method w/o a UDF