splitting data into columns

hi!

I guess this is a typical novice question.
Is there a way to split a data column horizontally? (please see attached)

Many thanks!

thanks mike!
I meant vertically. sorry for the mistake.

Sub one_letter_per_column()
Dim ws As Worksheet
Dim cell As Range
Dim vloop As Long
Set ws = Worksheets("Sheet1")
For Each cell In ws.Range("A2:A" & ws.Range("A" & _
    Rows.Count).End(xlUp).Row)
    For vloop = 1 To Len(cell)
        cell.Offset(, vloop + 1).Value = Mid(cell, vloop, 1)
    Next vloop
Next cell
End Sub

Charlize

hi Charlize,

sorry for the late reply.
reason: I just learnt how to use macros today.
your code works neatly.
one outstanding question:
it didn't seem responding when i tried to run it on the second sheet of the same file.
any hint?

regards

Change

Set ws = Worksheets("Sheet1")

to

Set ws = ActiveSheet

Charlize