Public Sub SplitToCols()
Dim NumCols As Integer
Dim i As Integer
Dim colsize As Long
On Error GoTo fileerror

NumCols = InputBox("Choose Final Number of Columns")
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
(NumCols - 1)) / NumCols)
For i = 2 To NumCols
Cells((i - 1) * colsize + 1, 1).Resize(colsize, 1).Copy Cells(1, i)
Next i
Range(Cells(colsize + 1, 1), Cells(Rows.Count, 1)).Clear
fileerror:
End Sub


Gord Dibben MS Excel MVP

On Wed, 20 Aug 2008 21:21:01 -0700, chiller20
wrote:

I have one long column of data and its going to print on many pages. However
I want to print it on one page, side by side. How do I do this?