Why does this macro not reach out beyond Column O?

This macro doesn't error, but why does it reach out ONLY to column O, even if columns contain data?

This one works below, but I have to hard code how many columns I want it to run on.

Sub SortAllColumnsIndependently()


Dim x As Long, y As Long
On Error Resume Next


For x = 1 To 62
    y = Cells(Rows.count, x).End(xlUp).Row 'count rows in each column
    Range(Cells(1, x), Cells(y, x)).Sort Key1:=Cells(1, x), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Next x


End Sub

Re: Why does this macro not reach out beyon Columnn O?

Gee thanks for taking that time.

I ALWAYS post the answer, whether I got any response or not.

This will find the last column with data in it, vs. stopping at the last header row! That was it! I didn't even notice because technically I wasn't using headers though there was data in row 1.

Sub SortAllColumnsIndependently()




Dim Cell As Range
Dim x As Long, y As Long
On Error Resume Next




Set Cell = Cells.Find("*", Range("A1"), xlValues, xlWhole, xlByColumns, xlPrevious, False, False, False)
    If Cell Is Nothing Then
        MsgBox "There are No Headers in Row 1", vbCritical
        Exit Sub
    End IF




For x = 1 To Cell.Column
    y = Cells(Rows.count, x).End(xlUp).Row 'count rows in each column
    Range(Cells(1, x), Cells(y, x)).Sort Key1:=Cells(1, x), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Next x




End Sub

Re: Why does this macro not reach out beyon Columnn O?

Yes, yes, got it.

It's more important to insure I provide the solution wherever the help came from and almost never abandon a post. This is important to me because I know both sites we use are well indexed in the engines and this insures helping as many others as possible with similar issues/questions. That said, I'll work on providing the link. :smash:

Quote from AliGW;788417

The answer was provided here: https://www.mrexcel.com/forum/…-out-beyon-columnn-o.html

In future, if you post on more than one forum, make sure to provide links. The rule is the same on most forums, and on both forums where you cross-posted yesterday, for the reasons outlined above.

This forums rules are here (note the forum etiquette section): http://www.ozgrid.com/forum/misc.php?do=showrules