Data Sort NOT working...

B

Bob Barnes

I've used this code for awhile, & it HAD worked.

But NOT now.

Range("DTop").Select
Selection.Sort Key1:=Range("AJ65"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Is there another way to ensure a Sort??

TIA - Bob
 
B

Bob Barnes

Doing a little reading in Old threads...the solution...
the recorded macro had
Header:=xlGuess

which needs to be replaced w/
....Header:=xlNo

Bob
 
Top