Macro - Sort with expanded criteria not working. 1

[Spidy6123]

Hello Everyone,

Here's my macro:

Sub DoSort()
'
' DoSort Macro
' Macro recorded 10/21/2005 by 857441661
'
' Keyboard Shortcut: Ctrl+f
'
Sheets("Results").Select
Columns("G:G").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlDescending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Selection.AutoFilter Field:=1, Criteria1:="<>FALSE", Operator:=xlAnd
End Sub


It's telling me the sort referance is not valid. Make sure that it's with the data that you want to sort, and the first Sort By box isn't the same or blank.

I just used the macro recorder, so I'm lost as to why it's not working correctly.

TIA

 

[PHV]

And what about this ?
Selection.Sort Key1:=Sheets("Results").Range("G2"), Order1:=xlDescending, Key2:=Sheets("Results").Range("A2") _

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Spidy6123]

same error

 

[PHV]

And this ?
With Sheets("Results")
.Range("G1").CurrentRegion.Select
Selection.Sort Key1:=.Range("G2"), Order1:=xlDescending, Key2:=.Range("A2") _

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Spidy6123]

There we go!!!

Thanks, works great!