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
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