| 
    
     |  | ▼あひる さん: 
 >Office2007上で実行したら、結果がうまく行きません。
 >どうやら、ソート処理の、第3ソートキーを認識してくれていないようなんです。
 
 >Key1:=Sheets(kekkaSheetName).Columns("L"), Order1:=xlDescending, _
 >Key2:=Sheets(kekkaSheetName).Columns("M"), Order1:=xlDescending, _
 >Key3:=Sheets(kekkaSheetName).Columns("O"), Order1:=xlDescending
 
 引数Order名がすべて 1 というのは変ですね?
 
 2003以前用に作った構文でも、↓2007でもSortできましたよ
 
 With Sheets(kekkaSheetName).Range("A1").Currentregion
 .Sort Key1:=.Columns("L"), Order1:=xlDescending, _
 Key2:=.Columns("M"), Order2:=xlDescending, _
 Key3:=.Columns("O"), Order3:=xlDescending, _
 Header:=xlYes
 End With
 
 |  |