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

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

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
"HamFlyer" <[email protected]> wrote in message
news:[email protected]...
> My intent is to create a Sort Button that will read the Active Column for
> sorting the ActiveSheet.

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



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

--

Dave Peterson

"Otto Moehrbach" wrote:

> 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
> "HamFlyer" <[email protected]> wrote in message
> news:[email protected]...
> > My intent is to create a Sort Button that will read the Active Column for
> > sorting the ActiveSheet.
>
>
> Thanks Otto
That was just the clue I needed. All the other code is in place and working.
Thanks again