You don't need a macro to do that.... select your cells, click "Data/Text To Columns" of XL2003 or earlier or "Data/Data Tools/Text To Columns" on the Ribbon for XL2007 (sorry, don't have XL2010, so I'm not sure where it is there), then click the Finish button on the dialog box that appears.