Sort Multiple Columns Using VBA

[bisel]

Hello,

I have a worksheet and have created this VBA to sort a range with two sort keys. First in descending order on Range N8 as the first key ...

Sub sort_ruldown()


Application.ScreenUpdating = False


    Sort.SortFields.Clear
    With Sort
        .SortFields.Add Key:=Range("N8"), Order:=xlDescending
        .SortFields.Add Key:=Range("R8"), Order:=xlDescending
        .SetRange Range("rescomp_table")
        .Header = xlYes
        .Apply
    End With
    




End Sub

... and similarly this routine to sort on Range N8 in ascending order ...

Sub sort_rulup()


Application.ScreenUpdating = False


    Sort.SortFields.Clear
    With Sort
        .SortFields.Add Key:=Range("N8"), Order:=xlAscending
        .SortFields.Add Key:=Range("R8"), Order:=xlDescending
        .SetRange Range("rescomp_table")
        .Header = xlYes
        .Apply
    End With
       
    
End Sub

The sorts perform, however, it is not picking up on the second key ... Range R8. Does anyone have a thought on why?

Thanks,

Steve

 

[Col Delane]

I don't know if this is the solution to the problem (I couldn't see anything different to some sorting code I have) but you need to turn ScreenUpdating back on after your primary code finishes running, so add this line

Application.ScreenUpdating = True

after the End With line.