Try this slightly modified recorded macro.
Try it on some test data first.
It sorts only the first column of the selected data...
'--
Sub Macro1()
Selection.Columns(1).Sort Key1:=Selection(1), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
--
Jim Cone
Portland, Oregon USA




"Nick"
wrote in message
...
Hi Gurus,
Is there a way to make sorting a selection easier? For example, is
there a way to simply select a list of data in a column, right-click
or press a button/code, and have the selection sorted ascending? I
tried recording a macro, but the sort always goes back to the starting
cell reference.

Our workbook is just set up with different lists of people's names in
different columns. We want to make a selection in a column, or select
multiple lists across columns, and then want the names to sort
alphabetically in the different columns from top to bottom, no header.

In Excel xp's sort, you have to go through a warning and a couple of
windows, asking if you want to expand the selection and if you have a
header, etc. This wastes time...

Thanks!