Microsoft Office Forums - View Single Post - Search a cell that contains words and numbers and convert the numbers to metric

macropod · 10-07-2014, 01:49 PM

In that case, I have to assume whatever else you have is tripping up over the Evaluate finction. Try replacing each instance of:
StrConv = Evaluate(Replace(Replace(StrConv, "-", "+"), "'", "*12+0"))
with:

Code:

              If InStr(StrConv, "-") > 0 Then
                If InStr(StrConv, "/") > 0 Then
                  StrConv = Split(StrConv, "-")(0) + Split(Split(StrConv, "-")(1), "/")(0) / Split(Split(StrConv, "-")(1), "/")(1)
                Else
                  StrConv = Split(StrConv, "-")(0) + CSng(Split(StrConv, "-")(1))
                End If
              End If