Hi Howard,

no need to loop

With shtExcel.Range(Cells(lngRow, 1), Cells(lngRow, 5))
..Value = .Value
End With

In passing, if shtExcel does not refer to the active sheet you may also need
to qualify each "Cells" with shtExcel.

Regards,
Peter T

"Howard Kaikow" wrote in message
...
Hey Howard, here's your answer.

Add code like the following before setting the format.

For Each rngCell In shtExcel.Range(Cells(lngFormat, 2),
Cells(lngFormat + lngHigh, 3))
rngCell.Value = rngCell.Value
Next rngCell

This converts the cells from text to numeric format.