Hi,

Am Fri, 20 Dec 2013 21:44:26 +0000 schrieb horacehill:

|Filename: Parsing 2.jpg |
|Download: http://www.excelbanter.com/attachment.php?attachmentid=935|

try:

Sub Parsing()
Dim myStr As String
Dim myArr As Variant

myStr = Range("A4")
myArr = Split(myStr, Chr(10))
Range("A8").Resize(rowsize:=UBound(myArr) + 1) _
= WorksheetFunction.Transpose(myArr)
End Sub


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