here is a macro for column A, do not use if you have data in other columns
Sub One_Page_Columns()
'Convert data in column A to columns one-page long
'*******WILL OVERWRITE DATA IN OTHER COLUMNS********
Dim rw%, col%
On Error GoTo e
rw = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & 1 & ")")
col = 1
Do
Range(Cells(rw, col), Cells(65536, col).End(xlUp)).Resize(, 1).Cut Cells(1,
col + 1)
col = col + 1
If Cells(rw, col).End(xlDown).Row = 65536 Then Exit Do
Loop
e:
On Error GoTo 0
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **