Macro to sort column in activesheet

[switchblade79]

I am trying to sort a column in the active worksheet. My macro sorts the column, but does not expand to include the rest of the table. Need help!

' sort_date in Active Worksheet Macro
'

Columns("E:E").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E:E") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A2:Q100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

[oeldere]

Try this one

change

Please Login or Register  to view this content.

in

Please Login or Register  to view this content.

[switchblade79]

no.. it didn't work. It still sorted just the column

[oeldere]

This recorded macro sort the column E in the range A:F

You have to change the range E2:E9 if you have more row in your data.

Please Login or Register  to view this content.

[switchblade79]

I don't know what is wrong, it still doesn't work.

[oeldere]

And you have tried my solution in #4?

I tested it, and for me it works.