Try this
[vba]
tmp = ""
For i = 1 To Len(cell.Value)
If IsNumeric(Mid$(cell.Value, i, 1)) Or Mid$(cell.Value, i, 1) = "." Then
tmp = tmp & Mid$(cell.Value, i, 1)
End If
Next i
cell.Value = Val(tmp)
[/vba]
Try this
[vba]
tmp = ""
For i = 1 To Len(cell.Value)
If IsNumeric(Mid$(cell.Value, i, 1)) Or Mid$(cell.Value, i, 1) = "." Then
tmp = tmp & Mid$(cell.Value, i, 1)
End If
Next i
cell.Value = Val(tmp)
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote