I sometimes use this assigned to a custom button on the toolbar
Sub fixmynums()
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Selection
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)
"Emece" <(E-Mail Removed)> wrote in message
news:4C9DD6B9-F291-4FF6-9BDC-(E-Mail Removed)...
>I have imported a column with numbers, but the cells are formatted as text.
> How do I convert them to Numbers?
>
> Thanks in advance
>
> Regards,
> Emece.-