VBA to sort multiple columns in ascending order

[dmcg9760]

Hi All


I have a worksheet that I am trying to sort the numbers on


I am wanting help writing a macro to sort multiple columns into descending order, column by column ( no headers )
from column A to IU , all columns have 7 rows each.

[jindon]

Is this what you are after?

Sub test()
    Dim i As Long
    With [a1].CurrentRegion
        For i = 1 To .Columns.Count
            .Columns(i).Sort .Columns(i), 2
        Next
    End With
End Sub

[dmcg9760]

Hi Jindon

Fantastic , exactly what I was looking for

Many Thanks

[jindon]

You are welcome.

For your reference, simple and easy old fashioned sort method

https://learn.microsoft.com/en-us/of...cel.range.sort