J

#### jlclyde

36 1/8 X 40 17/32. This is in one cell. The functions are supposed

to take and find the square inches of the measurements. So in this

case FCArea would be 36.125 * 40.53125. It is finding the right cell

and all of the right information seems to be going to the right

places, then it returns a #value. Any help will be greatly

appreciated.

Thanks,

Jay

Function FCarea() As Double

Application.Volatile

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 = Frac2Num(L) * Frac2Num(R)

End Function

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