Sort VBA

[vmjan02]

I have the below code, what it does it selects the columns (A to N) then till the last non blank sell and then it will sort column D (Contains date) order1:=xlAscending, Header:=xlNo

but giving me an error as "The sort data is not valid, make sure that its within the data you want to sort"

Sub Sot()
ActiveSheet.Range("A1").Select
ActiveSheet.Range(Selection, Selection.End(xlToRight)).Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Selection.sort key1:=Range("D1", Range("D1").End(xlDown)), _
order1:=xlAscending, Header:=xlNo
end sub

 

[RoryA]

Just use Range("D1") for the key.

 

[vmjan02]

Its giving me same error

 

[RoryA]

I guess your code is in another worksheet then? Use ActiveSheet.Range("D1")

 

[vmjan02]

I guess your code is in another worksheet then? Use ActiveSheet.Range("D1")

can you share me the code?, as it is giving me a error.

 

[RoryA]

I'd suggest this:

Sub Sot()
ActiveSheet.Range("A1").Currentregion.sort key1:=ActiveSheet.Range("D1"), _
order1:=xlAscending, Header:=xlNo
end sub

If that still gives an error, please state the error message.

 

[vmjan02]

thanks now all fine.