Hi,

Am Sun, 21 Jul 2013 14:31:03 +0100 schrieb Archies:

I have below data in A1 cell (values separated by semi-colon)
A;C;B;M;U

ConvertToColumn() produces output as
A
C
B
M
U

try:

Sub Test()
Dim varOut As Variant
Dim myRng As Range

varOut = Split([A1], ";")
Set myRng = [B1].Resize(UBound(varOut) + 1, 1)
With myRng
.Value = WorksheetFunction.Transpose(varOut)
.Sort key1:=[B1], order1:=xlAscending, Header:=xlNo
End With
End Sub


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