PAB
03-15-2012, 06:55 AM
Good afternoon,
I have this Macro that will NOT sort for some reason.
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
I know it is probably something really simple but I can't seem to get it working.
Thanks in advance.
Regards,
PAB
I have this Macro that will NOT sort for some reason.
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
I know it is probably something really simple but I can't seem to get it working.
Thanks in advance.
Regards,
PAB