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