<t>Yea. I'll paste relevant snippets. Be warned it is very sloppy.....For intCounter = LBound(vSimon, 1) To UBound(vSimon, 1)Range(Cells(intRow, intSimonStartCol), Cells(intRow, intSimonStartCol)) = CStr(vSimon(intCounter, 0))ActiveSheet.Range(Cells(intRow, intSimonStartCol + 1), Cells(intRow, intSi...