VBA Macro Sort Range

[wskultety]

Hi All,
I have to think this is a layup for experts. I have a Range that I want to sort based on the active column.

Range("A2:AZ251").Sort Key1:=Cells(1,ActiveCell.Column) _
Order1:=xlAscending, _
Header:=xlYes

Not working

Thanks for your help,
Will

[JKwan]

try this:

Range("A2:AZ251").Sort Key1:=Cells(1, ActiveCell.Column), _
Order1:=xlAscending, _
Header:=xlYes

[wskultety]

Still not the case

i do love that the single comma was the change :-D

[georgiboy]

Is it the top row that is not sorting, try extending the range to include the header:

    Range("A1:AZ251").Sort Key1:=Cells(1, ActiveCell.Column), _ 
    Order1:=xlAscending, _
    Header:=xlYes

Or if your header is in row 2 then maybe:

    Range("A2:AZ251").Sort Key1:=Cells(2, ActiveCell.Column), _
    Order1:=xlAscending, _
    Header:=xlYes

[wskultety]

Header is in row 1. Even with the change you proposed, still nothing happens. Worksheet doesnt move in anyway.

Thanks for your help nonetheless. Really hope to crack this as it will make a HUGE difference.

[Aussiebear]

Can you supply a sample workbook?

[JKwan]

I don't understand..... My sorts without problem

[wskultety]

Can you supply a sample workbook?

[georgiboy]

See attached, select any cell with green background and white writing and click the button on the worksheet.

[Aussiebear]

Man that worksheet is hard on the eyes.

[snb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Windows(1).Zoom = 120
  With Range("A1:AZ250")
      .Font.Size = 9
      If Not Intersect(.Offset, ActiveCell) Is Nothing Then .Sort .Cells(1, ActiveCell.Column), , , , , , , 1
  End With
End Sub