Macro to sort not working on 2010 version

[tonywatsonhelp]

Hi Everyone,

I have this simple sort to sort by two columns in a range,
works great but not on 2010 version,

can anyone give me a version that will work on 2010 please

heres my version

Sub SortAscending1()
Application.EnableEvents = False
Application.ScreenUpdating = False

Call AA_unProtect
    ActiveSheet.Sort.SortFields.Clear
    
    
   ActiveSheet.Sort.SortFields.Add2 Key:= _
        Range("C8:C1003"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal 'its breaking here!!!!!
   ActiveSheet.Sort.SortFields.Add2 Key:= _
        Range("D8:D1003"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("C7:AD1003")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

ActiveSheet.Sort.SortFields.Clear

 ActiveSheet.Range("G8:G1003").Rows.AutoFit
Call AA_Protect
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

thanks

tony

 

[Fluff]

Replace all this

    ActiveSheet.Sort.SortFields.Clear
    
    
   ActiveSheet.Sort.SortFields.Add2 Key:= _
        Range("C8:C1003"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal 'its breaking here!!!!!
   ActiveSheet.Sort.SortFields.Add2 Key:= _
        Range("D8:D1003"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("C7:AD1003")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

ActiveSheet.Sort.SortFields.Clear

with

   Range("C7:AD1003").Sort Range("C7"), xlAscending, Range("D7"), , xlAscending, , , xlYes, , False

 

[tonywatsonhelp]

Ok Again massive thank you

 

[Fluff]

You're welcome & thanks for the feedback.

 

[RoryA]

FYI, you could also have replaced .Add2 with .Add in your original code.