macro to sort right to left

[Steve]

Help please!

I need a macro to sort numbers left-to-right in cells C2 to G2

these numbers continue down the columns for about 600

I can't get the macro I need to move down a sort each row in turn.

Thanks in advance

Steve

 

[Bernie Deitrick]

Steve,

You may need to change xlAscending to xlDescending:

Sub SteveSort()
Dim myC As Range

For Each myC In Range(Range("C2"), Cells(Rows.Count, 3).End(xlUp))
myC.Resize(1, 5).Sort Key1:=myC, _
Order1:=xlAscending, Orientation:=xlLeftToRight
Next myC
End Dub

HTH,
Bernie
MS Excel MVP



in message news:[email protected]...

 

[Steve]

Hey Bernie - thanks - worked a treat first time.

Steve