Here's one way as responded to your identical post in .newusers
(please do not multi-post)

Assume source data is in Sheet1, A1:E1

In Sheet2

Put in A1:
=OFFSET(Sheet1!$A$1,COLUMNS($A$1:A1)-1,ROWS($A$1:A1)-1)

Copy A1 down by as many rows as there are columns in Sheet1, i.e. down to A5

A1:A5 will return whats in A1:E1 in Sheet1

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"Aloysicus" wrote in message
...
I have a set of data list in the horizontal manner. Is there a macro that
can send this data vertically instead of manually doing it?

Thanks in advance.
Aloysicus