Sub ConvertTextToNumber() ' A converter to change all numbers stored as text in to numbers in one go. Dim c As Range 'IF YOU HAVE A SELECTION, THEN CONVERT ONLY THE SELECTION If Selection.Count > 1 Then For Each c In Selection If IsNumeric(c) And c <> "" Then c.Value = Val(c.Value) Next Else 'IF NO SELECTION IS MADE, THEN CONVERT EVERY CELL WITHIN THE USED RANGE For Each c In ActiveSheet.UsedRange If IsNumeric(c) And c <> "" Then c.Value = Val(c.Value) Next End If End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter