On Jan 19, 1:04*pm, jlclyde wrote:
I have items like 4 7/8 X 7 in a cell. *I am trying to put together a
function to multiply the two numbers together. *I can do this with
normal functions in Excl but I would like a function to do this job.
So I would like this to return 34.125. * Here is the code I have.

Any help is appreciated,
Jay

Private Function FCArea() As String
* * Dim Fnd As String
* * Dim L As String, R As String, x As Integer

* * Fnd = Range("B:B").Find(What:="Final Size:").Offset(2, 0).Value

* * x = InStr(1, Fnd, "X", 1)

* * L = Left(Fnd, x - 1)
* * R = Right(Fnd, Len(Fnd) - x)
* * FCArea = L * R

End Function

I found a way to convert each fraction to a decimal and then multiply
them. Here is that code.
Jay

Function Frac2Num(ByVal X As String) As Double
Dim P As Integer, N As Double, Num As Double, Den As Double
X = Trim$(X)
P = InStr(X, "/")
If P = 0 Then
N = Val(X)
Else
Den = Val(Mid$(X, P + 1))
If Den = 0 Then Error 11 ' Divide by zero
X = Trim$(Left$(X, P - 1))
P = InStr(X, " ")
If P = 0 Then
Num = Val(X)
Else
Num = Val(Mid$(X, P + 1))
N = Val(Left$(X, P - 1))
End If
End If
If Den < 0 Then
N = N + Num / Den
End If
Frac2Num = N
End Function