VBA SORT Applyでエラー

質問

今日パソコンが新しくなり、office2003から2010になりました。

2003で作成したマクロで、SORTメソッドを書き換え実行したところ、『実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです』とメッセージが…　デバッグでみると、Applyのところが黄色になっていました。

何が悪いのか教えてもらえますか？

Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動
With ActiveSheet.Sort.SortFields
.Clear
.Add Key:=Range("E3"), Order:=xlDescending
End With
With ActiveSheet.Sort
.SetRange Range("A3:S68")
.Header = xlYes
.Apply　←ここが黄色に
End With

回答No.2

K Kazz（@JazzCorp）

オールドファッションで、、、
Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動
Range("A3:S68").Sort _
　　Key1:=Range("E3"), Order1:=xlDescending, _
　　Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
　　Orientation:=xlTopToBottom, SortMethod:=xlPinYin

お礼

ご教示いただきありがとうございます。

やってみましたがダメでした(><)　黄色になってしまいました。

調べてみたらVBA SORT は、2003の書き方でも動くようですね。なんでエラーになってしまうのかしら…

いろいろ調べてみます。Thanks Anyway

回答No.1

heno-_-

私の環境（ Excel2010 ）で適当なデータを作って動かしてみましたが、
質問内容にあるコードで正常に動作しました。
どこか他のところに、問題があるのかも？

試しに、以下のコードを実行してみていただけますか？
--------------------------------------------------
Worksheets("営業所順位表").Activate
Application.Calculation = xlCalculationAutomatic '再計算自動

Range("A3:S68").Sort _
Key1:=Range("E3"), _
Order1:=xlDescending, _
Header:=xlYes
--------------------------------------------------

お礼

返事が遅くなり申し訳ありません。
そうなんです。問題ないようなんですがマクロボタンを押すと止まってしまうのです。

教えていただいたコードは以前2003の時に書いたコードで、それが機能せず書き換えたのでダメでした。

ちなみにプロジェクトエクスプローラーを表示して　Ｆ８　を押していくと問題なく抜けて並び替えができます。とりあえず今朝はそれで乗り切りました(^^;)