Is there a better way to do this?

Code:

---

    iX = tmpExcelApp.ActiveCell.Column
    iY = tmpExcelApp.ActiveCell.Row
   
    iCounter2 = 1
    For iCounter = 1 To iX
      tmpExcelWrk.Cells(iCounter2, iCounter).Select
     
      If IsNumeric(tmpExcelApp.ActiveCell.Value) = True And Len(Trim(tmpExcelApp.ActiveCell.Value)) > 0 Then
        tmpExcelApp.ActiveCell.FormulaR1C1 = Trim(Str(tmpExcelApp.ActiveCell.Value))
        If tmpExcelApp.ActiveCell.Value = 0 Then tmpExcelApp.ActiveCell.Value = Null
      End If
 
      If iCounter = iX And iCounter2 <> iY Then
        iCounter = 0
        iCounter2 = iCounter2 + 1
      End If
    Next

---

Yes, that code LOOKS like it accomplishes absolutely nothing, but if you have dealt with importing Excel data to an DB table directly in code, you might know why I need to do this. Basically, even after converted a cell to TEXT format, it doesn't actually take "effect" until you move into the cell and move out of it. This routine takes too long, is there a quicker way to accomplish this?

Thanks,
Thai