i really need help w/ this sorting problem i'm having...

consider the following:

Sub SortBy()
Application.ScreenUpdating = False
Range("a1:aa1218").Select
Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlYes
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
Application.ScreenUpdating = True
End Sub

i have that code on an option button
i have columns a:aa
every column except i:p has an option button over it's colum
heading...
(e.g. E1 is "description" and there's an option button there, R1 i
state, and so on...)

now, i can make 20-some macros based on the option button you selec
but i was hoping there's a way i can have 1 macro that if i select th
option button in col Q it will sort by Q, etc etc...

please, any help would mean a great deal..

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com