Correction: Should have tested, my code line should have been more like Tom's,
rest of macro improves performance.
cell.value = left(cell.value,len(cell.value)-1) & " " & right(cell.value)
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages:
http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page:
http://www.mvps.org/dmcritchie/excel/search.htm