Selection.Sort error

[Krager]

ActiveSheet.Range("C7").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select


Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


In the above code, the select statements are working correctly, so the range I want is selected, however I get an error on the Selection.Sort statement every time. Any thoughts?

[Krager]

Ok fixed my own problem, just added an ActiveSheet. in front of the Range in the selection statement and that solved it.

Selection.Sort Key1:=ActiveSheet.Range("C7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[Don Guillett]

I tested yours and it worked but you may want to try this instead

Sub sortmyrange()
Range("C7", Range("C7").End(xlDown)). _
Sort Key1:=Range("C7"), Order1:=xlAscending
End Sub

--
Don Guillett
SalesAid Software
donaldb@281.com
"Krager" <Krager.1uslua_1125767114.9964@excelforum-nospam.com> wrote in
message news:Krager.1uslua_1125767114.9964@excelforum-nospam.com...
>
> ActiveSheet.Range("C7").Select
> ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
>
>
> Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlGuess,
> _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>
>
> In the above code, the select statements are working correctly, so the
> range I want is selected, however I get an error on the Selection.Sort
> statement every time. Any thoughts?
>
>
> --
> Krager
> ------------------------------------------------------------------------
> Krager's Profile:
http://www.excelforum.com/member.php...o&userid=20936
> View this thread: http://www.excelforum.com/showthread...hreadid=401705
>

[Tim Williams]

What's the text of the error?

Tim

"Krager" <Krager.1uslua_1125767114.9964@excelforum-nospam.com> wrote
in message news:Krager.1uslua_1125767114.9964@excelforum-nospam.com...
>
> ActiveSheet.Range("C7").Select
> ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
>
>
> Selection.Sort Key1:=Range("C7"), Order1:=xlAscending,
> Header:=xlGuess,
> _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>
>
> In the above code, the select statements are working correctly, so
> the
> range I want is selected, however I get an error on the
> Selection.Sort
> statement every time. Any thoughts?
>
>
> --
> Krager
> ------------------------------------------------------------------------
> Krager's Profile:
> http://www.excelforum.com/member.php...o&userid=20936
> View this thread:
> http://www.excelforum.com/showthread...hreadid=401705
>