I never noticed there was an options button there.

"NickHK" wrote:

ibbm,
Manually, click the "Options" button at the bottom of the DataSort dialog.
select "Left to Right".
In code, the recorder generates something like this:
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight

NickHK

"ibbm" wrote in message
...
I have a spreadsheet that I need to have the columns sorted by instead of
rows.

I have data like

Store Name ABC Store DEF Store GHI Store etc etc

Fruit Sales 100 150 200
Veg Sales 60 75 50

Total Sales 160 225 250



What I want to see is the top 10 stores by total sales so it would look
like

GHI Store DEF Store ABC Store

Fruit Sales 200 150 100
Veg Sales 50 75 60

Total Sales 250 225 160

Can this be done?