sort

[JOEE1979]

I know how to sort a single column

Range("A1:A11").Sort Key1:=Range("A1"), 
                       Order1:=xlAscending,
                       Header:=xlYes

But how would I sort columns "A" through "Z" and all columns 1 at a time (not connected to each other)?

 

[MARK858]

One way....

Sub JOEE1979()
    Dim i As Integer
    For i = 1 To 26
        With Range(Cells(1, i), Cells(11, i))
            .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
        End With
    Next
End Sub

 

[JOEE1979]

I modified the vba just a bit to make it different cells

Sub Sort_planner()
    Dim i As Integer
    For i = 3 To 38
        With Range(Cells(8, i), Cells(200, i))
            .Sort Key1:=.Cells(3, 8), Order1:=xlAscending, Header:=xlNo
        End With
    Next
End Sub

but its not working, and
.Sort Key1:=.Cells(3, 8), Order1:=xlAscending, Header:=xlNo
becomes highlighted

 

[MARK858]

.Cells(3, 8) should still be .Cells(1, 1).... it is the first cell in the range

 

[smozgur]

The "One way" answer provided by @MARK858 is the generic answer for the generic question. Therefore, the marked solution has been switched accordingly.