Jun, Change the "Header" variable in the sort method from
"Header:=xlGuess" to "Header:=xlNo".
this should fix your problem...

enjoy, Rick (Fairbanks, AK{Land of the Midnight Sun})



"Jun-Chih" wrote in
message ...

Hie, I am trying to write a macro to sort rows of data according to the
key in a specific column. Below is the code to sort the rows of data
according to the key in column E:

Sub ColumnE()

TotalRows = ActiveSheet.UsedRange.Rows.Count

Range("A6:AZ" & TotalRows).Select
Selection.Sort Key1:=Range("E6"), Order1:=xlAscending,
Key2:=Range("A6") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal

Range("E6").Select

End Sub

However, everytime the first row (in this case is Row 6) just would not
be sorted. The second row (Row 7) onwards work fine.

Can somebody please help!

Many thanks


--
Jun-Chih
------------------------------------------------------------------------
Jun-Chih's Profile:
http://www.excelforum.com/member.php...o&userid=35216
View this thread: http://www.excelforum.com/showthread...hreadid=549791