Sorting Code Error

[Aviles]

Hi all,
I'm getting the below error message when tyring to sort a range:

"Run-time error '1004': The sort reference is not valid. Make sure that it's within the data you want to sort, and the first Sort By box isn't the same or blank."

I'm using the code below, and when I press the "debug" button it's hi-lighting the ".Apply" line in yellow:

Sub Sort_Trades()
Range("C5:M50").Select
    ActiveWorkbook.Worksheets("Sort").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sort").Sort.SortFields.Add Key:=Range("C6:M50") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sort").Sort
        .SetRange Range("C5:M50")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

I got the above code by recording a macro and it worked fine. There's proably a simple solution for this, but I have no idea what is causing the error.

Any ideas?

 

[Jerry Sullivan]

I believe the problem is with the Key parameter highlighted below.
It establishes the column to be used for the sort order, so it should only be one column wide.

ActiveWorkbook.Worksheets("Sort").Sort.SortFields.Add Key:=Range("C6:M50") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

You may add additional keys, but each one should be only one column wide.

 

[Aviles]

Thanks JS411.