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



"Steve" wrote in message ...
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