What's the text of the error?

Tim

"Krager" wrote
in message ...

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