ベントンさん、ご返答ありがとうございます。 早速試してみたところ、やはりエラーが出ました。 Set Selection = xlsSheet.Range("A1:D"+i) Selection.AutoFilter '表をオートフィルタにかける Selection.AutoFilter.Field=2 Selection.AutoFilter.Criteria1="<>anzen/*" Selection.AutoFilter.Operator=xlAnd Selection.AutoFilter.Criteria2="<>mail/*" ただ、2行目の「'表をオートフィルタにかける」というところ まではいったのですが、その後のオプションにいくと(Field=2) 「O001 オブジェクト変数が設定されていません。」。といったエラー が出ます。やはり何か宣言しないといけないのでしょうか? もう全くわかりません。(T_T)引き続きあれこれ試してみようと 思いますが、何かヒントがあれば教えて下さい。 よろしくお願いいたします。