Sorting based on the first column of a defined name range (Unknown)

This is still regarding defined name ranges.

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

Im using the above code to sort. however, I need to base the 'SortKey1' on
the first column of the selected unknown defined name range.

Without knowing that AJ2 is the first column of the define name range that
is selected (which was selected using "Range(Range("A2").Value).Select"
, I need to sort based on the first
column of the selected range.

Can this be done?

Thanks again,
Paul

Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

HTH,
Bernie
MS Excel MVP


"PCLIVE" <[email protected]> wrote in message news:[email protected]...
> This is still regarding defined name ranges.
>
> Selection.Sort Key1:=Range("AJ2"), Order1:=xlAscending, Header:=xlNo, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>
> Im using the above code to sort. however, I need to base the 'SortKey1' on
> the first column of the selected unknown defined name range.
>
> Without knowing that AJ2 is the first column of the define name range that
> is selected (which was selected using "Range(Range("A2").Value).Select" , I need to sort based
> on the first
> column of the selected range.
>
> Can this be done?
>
> Thanks again,
> Paul
>
>

How about:

dim myRng as range
set myrng = Range(Range("A2").Value)

with myrng
.sort key1:=.columns(1), ....

end with

PCLIVE wrote:
>
> This is still regarding defined name ranges.
>
> Selection.Sort Key1:=Range("AJ2"), Order1:=xlAscending, Header:=xlNo, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>
> Im using the above code to sort. however, I need to base the 'SortKey1' on
> the first column of the selected unknown defined name range.
>
> Without knowing that AJ2 is the first column of the define name range that
> is selected (which was selected using "Range(Range("A2").Value).Select"
> , I need to sort based on the first
> column of the selected range.
>
> Can this be done?
>
> Thanks again,
> Paul

--

Dave Peterson

Bernie,

That worked great! Thanks for the help.

Paul

"Bernie Deitrick" <deitbe @ consumer dot org> wrote in message
news:[email protected]...
> Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending,
> Header:=xlNo, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>
> HTH,
> Bernie
> MS Excel MVP
>
>
> "PCLIVE" <[email protected]> wrote in message
> news:[email protected]...
>> This is still regarding defined name ranges.
>>
>> Selection.Sort Key1:=Range("AJ2"), Order1:=xlAscending, Header:=xlNo, _
>> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>>
>> Im using the above code to sort. however, I need to base the 'SortKey1'
>> on
>> the first column of the selected unknown defined name range.
>>
>> Without knowing that AJ2 is the first column of the define name range
>> that
>> is selected (which was selected using "Range(Range("A2").Value).Select"
>> , I need to sort based on the first
>> column of the selected range.
>>
>> Can this be done?
>>
>> Thanks again,
>> Paul
>>
>>
>
>

Dave,

I'm sure your suggestion will work, but I've already implemented Bernie's
suggestion.
Thanks for the suggestion and the many times you've helped in the past.

Paul


"Dave Peterson" <[email protected]> wrote in message
news:[email protected]...
> How about:
>
> dim myRng as range
> set myrng = Range(Range("A2").Value)
>
> with myrng
> .sort key1:=.columns(1), ....
>
> end with
>
> PCLIVE wrote:
>>
>> This is still regarding defined name ranges.
>>
>> Selection.Sort Key1:=Range("AJ2"), Order1:=xlAscending, Header:=xlNo,
>> _
>> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>>
>> Im using the above code to sort. however, I need to base the 'SortKey1'
>> on
>> the first column of the selected unknown defined name range.
>>
>> Without knowing that AJ2 is the first column of the define name range
>> that
>> is selected (which was selected using "Range(Range("A2").Value).Select"
>> , I need to sort based on the first
>> column of the selected range.
>>
>> Can this be done?
>>
>> Thanks again,
>> Paul
>
> --
>
> Dave Peterson