It also says "Compile Error" before the "Sub or function not defined
--
Old Bob


"Gord Dibben" wrote:

Try this macro after sorting.

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(60, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 60, "A").Resize(60, 2).Cut _
Destination:=Cells(iTarget, "C")

iSource = iSource + 120
iTarget = iTarget + 60

Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP

On Tue, 8 Jul 2008 07:03:24 -0700 (PDT), Spiky wrote:

I mean that currently I have a column for song and one for artist on each
page, I would like to add a third column for song and a fourth for artist so
what was once on two pages can go on one page...


Yep, that's what I assumed. Excel doesn't do Sort (not easily, I
presume someone could write VBA to do it) when the data wraps to a 2nd
set of columns. Word does, hence my suggestion.

You could also try changing printing prefs to print 2 pages on one in
Print Options. But I think this will make it too small to read.