I want to type a word in one cell and have it spread out into multiple cells.

Exmaple:
Type the word "Baby" in cell A:1.
B:1 will then have "B", B:2 will have "a", B:3 will have "b", and B:4 will
have "y".

Right click sheet tabview codeinsert this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
For i = 1 To Len(Target)
Target.Offset(, i) = Mid(Target, i, 1)
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"KatiJ" wrote in message
...
I want to type a word in one cell and have it spread out into multiple
cells.

Exmaple:
Type the word "Baby" in cell A:1.
B:1 will then have "B", B:2 will have "a", B:3 will have "b", and B:4 will
have "y".

I will assume that you really wish the word to be spread out *across*
columns, in a single row.
Word in A1, broken down into B1, C1, D1, E1, etc...

=IF(LEN($A1)<COLUMNS($A:A),"",MID($A1,COLUMNS($A:A ),1))

Enter in B1, then copy across and down as needed.
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"KatiJ" wrote in message
...
I want to type a word in one cell and have it spread out into multiple
cells.

Exmaple:
Type the word "Baby" in cell A:1.
B:1 will then have "B", B:2 will have "a", B:3 will have "b", and B:4 will
have "y".