If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook

Sheets("Sheet3").Range("a2:c99").Value = _
ArrayReshape(Sheets("Sheet2").Range("a2:a293"), 98, 3)

Alan Beban

Cara wrote:
I have a column of Titles sorted alphabetically from position A2 down to
A293. I would like to put it on another worksheet so that it is covering 3
columns yet still be alphabetical, i.e.; A2=alpha, B2=bravo, C2=charlie,
A3=delta, B3=echo, C3=fox-trot, A4=golf, etc. I have tried sorting left to
right, but it does nothing. Can someone please help?