Try this
Sub fixmynums()
Application.ScreenUpdating = False
On Error Resume Next
For Each C In Selection 'Range("a1:q" & lr)
If Trim(Len(C)) > 0 And C.HasFormula = False Then
C.NumberFormat = "General"
C.Value = CDbl(C)
End If
Next
Application.ScreenUpdating = True
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Andy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Dear all,
>
> I can convert a text string "12345" into the value 12,345.00 by using
> Value(text).
> However when I copy a text string "12345" from the monthly e-bill
> statement and using value(text) to convert it, it only returns a #value!
> error.
> How can I convert that string into value?
>
> thanks
>
>
> Andy
>
>