Sub repla()
    Dim LR As Long
    Dim Dash As Long, _
        Whole As Double
    Dim pi
    Sheets("Sheet3").Range ("A" & Rows.Count)   -->getting error here
 
    For r = 2 To LR
      s = Cells(r, 3)
      arr = Split(s, ",")
      For i = LBound(arr) To UBound(arr) 
        Whole = 0
        P = InStr(arr(i), " IN")
        Frac = Left(arr(i), P - 1)
        Dash = InStr(Frac, "-")
        If Dash > 0 Then
            Whole = Left(Frac, Dash - 1)
            Frac = Mid(Frac, Dash + 1, Len(Frac))
        End If
        af = Right(arr(i), Len(arr(i)) - P + 1)
        evfrac = Whole + Left(CStr(Evaluate(Frac)), 5)
     '   evfrac = Whole + Format(Evaluate(frac), "0.###")
        ss = ss & evfrac & af & ", "
      Next i
      Cells(r, 4) = Left(ss, Len(ss) - 2)
      ss = ""
    Next r
End Sub