I need to sort an active sheet using the col of the active cell

[Guest]

My intent is to create a Sort Button that will read the Active Column for
sorting the ActiveSheet.

 

[Otto Moehrbach]

One way:
Sub SortByActiveCellColumn()
Selection.Sort Key1:=Cells(2, ActiveCell.Column), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
I assumed your data has headers. Also, you have to select the entire range
you want sorted before you run this macro. Post back if you want help with
refining this to work with what you actually have. HTH Otto

 

[Dave Peterson]

Maybe you can use the technique shown at Debra Dalgleish's site:
http://www.contextures.com/xlSort02.html

 

[Guest]

One way:
Sub SortByActiveCellColumn()
Selection.Sort Key1:=Cells(2, ActiveCell.Column), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
I assumed your data has headers. Also, you have to select the entire range
you want sorted before you run this macro. Post back if you want help with
refining this to work with what you actually have. HTH Otto



Thanks Otto

That was just the clue I needed. All the other code is in place and working.
Thanks again