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" wrote in message ...
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
...
Selection.Sort Key1:=Selection.Cells(1, 1), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

HTH,
Bernie
MS Excel MVP


"PCLIVE" wrote in message
...
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" wrote in message
...
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