Hi,
How sort data (variable), which add to string.

E.G.:

value of k =
"1-zzz"
"2-zzz"
"3-zzz"
"4-zzz"

Sub sort()
Dim d As String
For k = 1 To 200
d = Cells(k, 1)
d = d & Cells(k, 1)
End Sub

Code above work until data is sorted in column.
and if data is unsorted it doesn't work.
Is there an easy solution?

Regards
Mark