How to convert text to numbers in Excel

Sub Enter_Values()

 For Each xCell In Selection

 Selection.NumberFormat = "0.00" 'Note: The "0.00" determines the number of decimal places. 

 xCell.Value = xCell.Value

 Next xCell

End Sub