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".