Help With Error With VBA Sort

[Ark68]

This code meant to sort a range of cells is failing with an "The sort reference is not valid. Make the sure that it's within the data you want to sort anbd the first Sort By box is isn't the same or blank." error with the line in red.

With ws_thold
    If Application.WorksheetFunction.CountA(ws_thold.Range("AJ1:AJ8")) > 1 Then
        Set rng_trnservices = ws_thold.Range("AJ1:AQ8")
        With rng_trnservices
            .Sort key1:=.Range("AQ1"), order1:=xlAscending, Header:=xlNo
        End With
        ActiveWorkbook.Names.Add Name:="TrnServices", RefersTo:=rng_trnservices
    End If
End With

 

[Marcelo Branco]

Maybe

With ws_thold
    If Application.WorksheetFunction.CountA(ws_thold.Range("AJ1:AJ8")) > 1 Then
        Set rng_trnservices = ws_thold.Range("AJ1:AQ8")
        With rng_trnservices
            .Sort key1:=ws_thold.Range("AQ1"), order1:=xlAscending, Header:=xlNo
        End With
        ActiveWorkbook.Names.Add Name:="TrnServices", RefersTo:=rng_trnservices
    End If
End With

M.

 

[Ark68]

Thank you Marcelo! That was the correction I needed.

 

[Marcelo Branco]

You're welcome. Glad to help.

M.