Hello
I use this sub to convert columns in a workbook
(generated in SQL-server). Data has text format and I
need to get data format. This works ok - except when data
has decimals - then it remains in text format. I can´t
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 = LBound(vArr) To UBound(vArr)
col = vArr(i)
Set rng = Range(Cells(2, col), Cells(Rows.Count,
col).End(xlUp))
rng.Formula = rng.Value
Next

End Sub