Split a cell into adjacent cells

Hi,
Please help me out in the following...

Please Login or Register  to view this content.

In the above how do I replace B1 to any random cell in a worksheet? i.e. I just need the data to be split on adjacent cells of a selection no matter where I use the macro on a sheet.

Say for example,
In one worksheet I have the data to split at a1 and I need the split data in a1, a2, a3 etc.
And in the next worksheet at d3 and I need the split data in d3, d4, d5, etc.

Hi there,

Try this while on the cell to be split:

Please Login or Register  to view this content.

HTH

Robert