Good afternoon macevanscb
I don't know of a way to do this without resorting to VBA, but it shouldn't be too difficult with a macro.
Sub Macro2()
For n = 1 To 20
Set a = Range(Cells(n, 1), Cells(n, 10))
a.Sort Key1:=Range(Cells(n, 1), Cells(n, 10)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next n
End Sub
This code is just a rough trial - it doesn't detect your range or anything. If you have 1,000 rows, change the 20 in line 2. If your data takes up 20 columns change the 10 in line 3 to 20.
HTH
DominicB
Bookmarks