Sub copy_sort()
With ActiveSheet
.Range("B:B").Value = Range("A:A").Value
End With
Columns("B:B").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub

Note: assumes you have a header row.

If not, change B2 to B1


Gord Dibben MS Excel MVP

On Wed, 14 May 2008 08:32:01 -0700, Eric wrote:

No, that is not what I want to do, I would like to use any function or coding
to do the sorting.
Does anyone have any suggestions?
Eric

"Bob I" wrote:

Select column A, copy it and paste it into Column B. Select column B
only and Click Data, Sort.

Eric wrote:

Thank everyone very much for any suggestions
The text under column A is raw data, and I don't want to touch it.
Based on a list of text under column A, I would like to sort it and list
them out under column B.
Does anyone have any suggestions?
Thank everyone very much for any suggestions
Eric

"REJesser" wrote:


At the top of your worksheet there are two icons. One has an "A" on top and
a "Z" on the bottom with an arrow pointed downward. The other has a "Z" on
top and an "A" on the bottom. Highlight what you want sorted and then select
one of the two options.

"Eric" wrote:


I get a list of text under column A, and I would like to sort it, but I
cannot use small, because it is not number.
Does anyone have any suggestions on how to sort text?
Thanks in advance for any suggestions
Eric