Sub TransposeLink()
Dim rng As Range
Dim rw As Long
Set rng = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp)

For rw = 1 To rng.Row - 1
With Worksheets("Sheet2")
.Cells(1, rw).Formula = "=Sheet1!A" & rw + 1
End With
Next
End Sub


--
Regards,
Tom Ogilvy

"Ben.c" wrote in message
...
Hi,
I have some data in the column A of a sheet and in another sheet of the
same file, I need to use the same data but horizontaly this time : I need
that A2 in first sheet come in B1, A3 in C1, A4 in D1....
And I don't want just the data, I need to this to update itself his the
first data change. I have try to do in column a of the ne sheet A1 =A1,
A2=A2... and the n copy it to do a pastespecial formula-transpose, but it
doesn't work....
Thanks for any help
Happy Christmas
Benjamin