Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Range("A:A").value = Range("A:A").value
Sub Str2Val()
Dim c As Range
On Error Resume Next
For Each c In Selection.Cells
c.Value = Trim(c.Value) + 0
' c.Value = Replace(c.Value, " ", "") + 0 ' in case of internal spaces
Next c
End Sub