Sub Sort()'where sortrange is a named range to sort a1:aa200
[SortRangeAdd].Sort Key1:=Cells(1, activecell.column), Order1:=xlAscending,
Orientation:=xlTopToBottom
End Sub
--
Don Guillett
SalesAid Software

"Jeff Garrett" <Jeff wrote in message
...
Hi,
I am working on a macro in Excel 2003 Pro, and everytime I go to sort a
column of data. There are about 10 rows of data in about 200+ columns. I
can only get the macro to sort the column that I edited it with. How can
I
create the macro, so each time I click on the first row of each column,
click
the macro button I will assign to the toolbar, then that row will be
sorted,
and do this for each column?

Any help at all would be greatly appreciated,
Jeff Garrett )