Sub Make_Number()
On Error Resume Next
Application.ScreenUpdating = False
Dim Cell As Range
Selection.NumberFormat = "General"
For Each Cell In Selection
Cell.Value = Cell.Value * 1
Next Cell
Application.ScreenUpdating = True
End Sub