ベントンさん、ご返答ありがとうございます。 >>O001 オブジェクト変数が設定されていません。 >「設定されていない」って言うくらいだから、 >>>やはり何か宣言しないといけないのでしょうか? >って事でしょうね。(^_^;) (^^;;;やっぱりそうですよね。。 >Set XXXXX = Selection.AutoFilter >XXXX.Field = 2 >って感じではないのかな? (ゴメンナサイ全然ダメです) 最後の手段で試してみます。うまくいったら書き込みします。 ダメならあきらめて、ソートはビューでソートしてから Excelに書き込むことにします。。。 お忙しい中、どうもありがとうございました。