convert selected cells in number

Sub Enter_Values()

Range("B2", Range("B" & Rows.Count).End(xlUp)).Select

For Each xCell In Selection

xCell.Value = xCell.Value

Next xCell

Selection.NumberFormat = "0"

Range("a2").Activate

End Sub