Hello,

I have a range of cells A1:D5 with letters from the alphabet - there are no column or row headers. I'd like the following code to start with Row 1 (A), sort the letters in that row from Left to Right, then go to Row 2 (B), repeat the same sort, and so on until all 5 rows are sorted.

The following piece of code I've written will sort all 5 rows, but only based on what I set Key1 to. In it's current format, I thought it would have interpreted Cells (1,1) as the first cell in each row, but apparently it's being interpreted as only cell A1.

Can someone please suggested a possible solution so that each row is sorted one-by-one? Thank you.

Sub sort_letters()

     Dim Rng As Range
     Dim Rw As Range

     Set Rng = Range("A1:D5")

          For Each Rw In Rng.Rows
                Rng.Sort Key1:=Rng.Rows.Cells(1, 1), Order1:=xlAscending, Orientation:=xlLeftToRight
          Next Rw

End Sub