Sub ColtoRows()
Dim rng As Range
Dim I As Long
Dim J As Long
Set rng = Cells(Rows.Count, 1).End(xlUp)
J = 1
On Error Resume Next
nocols = InputBox("Enter Final Number of Columns Desired")
For I = 1 To rng.Row Step nocols
Cells(J, "A").Resize(1, nocols).Value = _
Application.Transpose(Cells(I, "A") _
.Resize(nocols, 1))
J = J + 1
Next
Range(Cells(J, "A"), Cells(rng.Row, "A")).ClearContents
Exit Sub
End Sub


Gord Dibben MS Excel MVP

On Fri, 30 Oct 2009 12:52:47 -0700, Mike Clarke wrote:

I need to take a single column of names in excel
and have the first line go to column B, the second line to column C the third line to Column D and than start all over agian. Thus I end up with 3 new columns.
Thx

EggHeadCafe - Software Developer Portal of Choice
Fire and Forget Fun: RPC Pings, GET, POST and more.
http://www.eggheadcafe.com/tutorials...t-fun-rpc.aspx