I've exported a file from Outlook into excel and used this code:


Code:
--------------------
Sub removelinebreaks()

Dim lastrow As Long, i As Long
Dim first As String, second As String

lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lastrow

first = Cells(i, "B").Select
ActiveCell.Value = WorksheetFunction. _
Substitute(ActiveCell.Value, Chr(10), Chr(0))
Next i

End Sub
--------------------


To get rid of any line spaces and I'm left with:


Code:
--------------------
35084#
--------------------


I would like to be able to parse this into 3 different columns if I
could.

Can anyone help me with this please?


--
Daminc
------------------------------------------------------------------------
Daminc's Profile: http://www.excelforum.com/member.php...o&userid=27074
View this thread: http://www.excelforum.com/showthread...hreadid=505254