Hi again,

Am Mon, 14 Oct 2013 00:06:32 +0200 schrieb Claus Busch:

This works great for cell A1 to rows in D.
How do I modify the code to do A1:Ax into column D down as far as needed?

or write all cells in one string and then transpose:
Sub Test2()
Dim varOut As Variant
Dim rngC As Range
Dim FECell As Range
Dim LRow As Long
Dim myString As String

LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range("A1:A" & LRow)
myString = myString & rngC & ", "
Next
myString = Left(myString, Len(myString) - 2)
varOut = Split(myString, ", ")
Set FECell = Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
FECell.Resize(rowsize:=(UBound(varOut) + 1)) = _
Application.Transpose(varOut)
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2