Sorting Question

[Wrecker]

How do I write code to sort on the last column in a range? Im using:
range(activecell,activecell.end (xltoright).end(xldown)).select
for the range. Then I need to sort on the last column in the range (changes Weekly).

Thanks in advance
Wrecker

[SamS]

I changed your code slightly and it worked - probaly cleaner and better soultions out there

Range(ActiveCell.End(xlToRight), ActiveCell.End(xlToRight).End(xlDown)).Select

[gareth]

My one is bsically similar to the above answer.But,see if it works for you

Range(ActiveCell.End(xlToRight), ActiveCell.End(xlToRight).End(xlDown)).Select

[Wrecker]

I have the code to select the range. I need the code to sort on the last column in the range.

Thanks
Wrecker

[eliW]

On 2002-04-25 18:16, Wrecker wrote:
I have the code to select the range. I need the code to sort on the last column in the range.

Thanks
Wrecker

Hi Wrecker,
A simple code to sort last column of current range:

Sub SortLastColumn()
Dim myRange As Range, myCol As Integer, sortCol As String

Set myRange = ActiveCell.CurrentRegion
myCol = myRange.Columns.Count
sortCol = myRange.Item(1, myCol).Address

myRange.Select
Selection.Sort Key1:=Range(sortCol), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
IgnoreControlCharacters:=True, IgnoreDiacritics:=True

End Sub

Eli