RYUさん、ご返答ありがとうございます。 早速以下の記述で試してみました。 Set Selection = xlsSheet.Range("A1:D"+i) Selection.AutoFilter '表をオートフィルタにかける Call Selection.AutoFilter(2,"<>anzen/*",xlAnd,"<>mail/*") するとCall〜行のところで以下のようなエラーが出ました。 「Maicrosoft Excel:RangeクラスのAutoFilterメソッドが失敗しました。」 結果は失敗でしたが、少し希望の光が見えたような気がします。RYUさんのご返答を元にもう少しがんばってみます。私はHELPやHPに載っているスクリプトを元に自分なりに変えているだけですので、基本知識があまりありません。それでやってみようという方が甘いのかもしれませんね。(^^;;;