VBA Macro Convert to number code

[Aliq2014]

Hello, I have a question is there a way to write a code to loop through a given column and convert each cell to a number?

Cell A - Number in cell formated as text Desire Result Cell A- Converted to number
561 561
562 562
.
.
70 70
.
.
700 700

Help is really appreciated.

Thanks,

 

[shg]

Select the column, Data > Text to columns, Finish.

 

[Aliq2014]

Thanks,

this does the magic as well
Cells("D").Value = Cell("D").Value

 

[shg]

I think you mean

Columns("D").Value = Columns("D").Value

But if the cells are formatted as currency, that will round them all to the nearest penny.

Columns("D").Value2 = Columns("D").Value2

... is safer.

 

[Aliq2014]

This is safer as well: Range("D" & x).Value = Range("D" & x).Value</SPAN>