Sandip

This should get you started.

Tony
Sub aaa()
GetWord = InputBox("get word")
Range("a5").Select
For i = 1 To Len(GetWord)
ActiveCell.Offset(0, i - 1).Value = Mid(GetWord, i, 1)
Next i
End Sub
-----Original Message-----
Hi,

We have a form in Excel (something like a bank form)
where the
details have to be filled in by each character in each
cell.

for eg. the word PEPSI would be required to be typed by
each alphabet
in the 5 adjoining cells.

Can someone help me out with a macro such that I type the
word(could
be 5 to 20 characters long) in the first cell and run the
macro. It
should automatically separate the characters in the
adjoining cells.

Another way would be to place the cursor (active cell) on
the first
cell and run the macro which would display an input box.
On entering
the words in the input box and pressing enter, all the
characters
would be displayed in separate cells starting from the
first cell.

Thanks
Sandip.
.