Hello
I use this sub to convert columns in a workbook=20
(generated in SQL-server). Data has text format and I=20
need to get data format. This works ok - except when data=20
has decimals - then it remains in text format. I can=B4t=20
figure out what to do - any assistance appreciated!

Sub FormatColValue2()
' formats imported text columns to values

Dim i As Long
Dim rng As Range
Dim col As Long

For i =3D LBound(vArr) To UBound(vArr)
col =3D vArr(i)
Set rng =3D Range(Cells(2, col), Cells(Rows.Count,=20
col).End(xlUp))
rng.Formula =3D rng.Value
Next

End Sub