range sort horizontal range

[randino]

Trying to sort a 1 row multiple column range it does seem to work.
So far I have this

Dim vHeader As Variant
Dim rFirstHeading As Range
Set rFirstHeading = Range("B4")
Dim i As Integer
Dim iRow As Integer
iRow = rFirstHeading.Row
Dim iColumn As Integer
iColumn = rFirstHeading.Column

For i = 1 To rColHeaders.Count
Cells(iRow, iColumn).Value = rColHeaders(i)
iColumn = iColumn + 1
Next
' Arange headins in assending order
Dim rHeadings As Range
Set rHeadings = rFirstHeading.Resize(1, rColHeaders.Count)
rHeadings.Sort Key1:=Range("B4"), order1:=xlAscending, Orientation:=xlSortColumns
rHeadings.Sort Orientation:=xlSortColumns



essentially it is Range("B4:F4").sort which give Sort method of range class failed
in the code, the first one runs, but I don't see any results.

[jolivanes]

Re: "essentially it is Range("B4:F4")"
Try this.

Range(Cells(4, 2), Cells(4, 6)).Sort Key1:=Range(Cells(4, 2), Cells(4, 6)), Order1:=xlDescending, Orientation:=xlLeftToRight '<----- or Ascending

[snb]

@joli


Range(Cells(4, 2), Cells(4, 6)).Sort
=

cells(4, 2).resize(,4).Sort

[randino]

That works. Thanks!
Why did you use choose Cells? Should I be using cells rather than range?

[randino]

Neither one worked for me. Run-time error 1004 Sort method of range class failed.
Thanks for the link, lots of good information.

[jolivanes]

@snb
Of course! Thanks (Copied it from an old file without paying too much attention. Should know better though.)
Use Cells or Range. Don't worry about the difference. Whatever your preference is.
My personal preference is Cells