Sorting a range in a spreadsheet

[u123935]

I'm trying to sort a section in a sheet using two keys. The code looks good but isn't (see below). When stepping through the code, it halts whenever it arrives
at the first .SortFields. line with run time error '48' Named argument not found. Anyone help?

' sort Primary income
Set ws = Worksheets("Primary")
Worksheets("Primary").Activate
lowrow = Range("A" & Rows.Count).End(xlUp).Row
' Range(Cells(5, "A"), Cells(lowrow, "D")).Select
Stop
With ActiveSheet.Sort
.SortFields.Add Key:=Range("C5"), Order1:=xlAscending
.SortFields.Add Key:=Range("A5"), Order1:=xlAscending
.SetRange Range(.Cells(5, "A"), .Cells(lowrow, "D"))
.Header = xlNo
.OrderCustom = 1
.MatchCase = False
.Orientation = x.lTopToBottom
End With

 

[gordsky]

I would think its because you havent fully qualified your sort area
try this see if it does the job. worth noting you dont need to 'select' your range either

Set ws = Worksheets("Primary")
lowrow = ws.cells(Rows.Count,1).End(xlUp).Row

ws.Sort.SortFields.Clear
  
  'add range for column with criteria
   ws.Sort.SortFields.Add Key:=ws.range(ws1.Cells(5, 3), ws.Cells(lowRow, 3)), _ 
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
  
   ws.Sort.SortFields.Add Key:=ws.range(ws1.Cells(5, 1), ws.Cells(lowRow, 1)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    
    With ws.Sort
        .SetRange ws.Range(ws.Cells(5, "A"), ws.Cells(lowrow, "D")) 'this range is the whole sort area
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Fluff]

Another option

Dim ws As Worksheet
Set ws = Worksheets("Primary")
lowrow = ws.Range("A" & Rows.count).End(xlUp).Row
ws.Range("A5:D" & lowrow).Sort ws.Range("C5"), xlAscending, ws.Range("A5"), , xlAscending, Header:=xlNo

 

[u123935]

Thanks to you both. Got it working a treat now.

 

[Fluff]

Glad we could help & thanks for the feedback.