I pasted the examples you gave into cells C5:C11

Sub test()

For i = 5 To 11
myText = Cells(i, "C")
myLen = Len(myText)
For n = 1 To myLen
If IsNumeric(Left(myText, n)) Then thisNum = Left(myText
n)
Next n
Cells(i, "F") = Format(thisNum, "$ #.00")
Next i


End Su

--
Message posted from http://www.ExcelForum.com