Solved: Sort will NOT Sort

[PAB]

Good afternoon,

I have this Macro that will NOT sort for some reason.

[vba]Option Explicit
Option Base 1
Sub Sort_Numbers_For_Patent_Systems()
With Application
.ScreenUpdating = False: .Calculation = xlCalculationManual: .DisplayAlerts = False
End With
With Sheets("Patent Systems")
Range("T14:U20").Select
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("U14:U20") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.Sort
.Orientation = xlTopToBottom
.Apply
End With
Range("R51").Select
With Application
.DisplayAlerts = True: .Calculation = xlCalculationAutomatic: .ScreenUpdating = True
End With
End Sub[/vba]
I know it is probably something really simple but I can't seem to get it working.
Thanks in advance.

Regards,
PAB

[mancubus]

hi.

try

[vba]
With Sheets("Patent Systems")
.Range("T14:U20").Sort , Key1:=.Range("U14"), Order1:=xlDescending, Header:=xlGuess
End With
[/vba]

[mancubus]

or with a one-liner

[VBA]
Sheets("Patent Systems").Range("T14:U20").Sort , _
Key1:=Sheets("Patent Systems").Range("U14"), _
Order1:=xlDescending, _
Header:=xlGuess
[/VBA]

[mancubus]

the reason why your procedure does not work is:

[VBA]
With Worksheets("Patent Systems")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("U14:U20"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("T14:U20")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
[/VBA]

[PAB]

Hi mancubus,

Thanks very much, that has sorted it.
Sorry to have not replied before but I have been away for a few days.
Thanks again.

Regards,
PAB

[mancubus]

you're welcome PAB.