How to Sort Multiple Rows in Excel Horizontally

[spiros]

How to Sort Multiple Rows in Excel (2 Ways) - ExcelDemy

Code: [Select]

Sub Sort_Rows()
    Dim xRnge As Range
    Dim yRnge As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRnge = Selection

    If xRnge.Count = 1 Then
        MsgBox "Please select multiple cells!", vbExclamation, "Powered by Exceldemy.com"
        Exit Sub
    End If

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With

    Application.ScreenUpdating = False
    For Each yRnge In xRnge.Rows
        yRnge.Sort Key1:=yRnge.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRnge

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With

    Application.ScreenUpdating = True
End Sub