Excel VBA :Macro Convert selected cells to number

 

Sub ConvertToNumber()

With Selection

    .NumberFormat = "General"

    .Value = .Value

End With

End Sub