Sub ConvFractions()
Dim r As Range, strText As String
For Each r In Selection
strText = Replace(Application.WorksheetFunction.Trim(r.Text), " ", "+")
r.Value = Evaluate(strText)
Next
End Sub
Sub ConvFractions()
Dim r As Range, aVal As Variant, strText As String
For Each r In Selection
aVal = Split(Application.WorksheetFunction.Trim(r.Text))
strText = aVal(0) & Replace(Format(Evaluate(aVal(1)), "0.000000"), "0.", "")
r.Value = Evaluate(strText)
Next
End Sub