RYUさん、ご返答(ご解答)ありがとうございました!! できました〜!!!感激です。本当にありがとうございました。 m(__)mm(__)mm(__)m >xlAndというのはNotesで定数定義していますか? これなのですが、していなかったんです。。<定義 >あくまでもExcelの定数であって、そういう文字列でも >変数でもありません。 >Notesで、xlAndを定義しなかった場合、xlAndという >変数を自動的にNotesが作ってくれますが、Variantで >値はヌルか0だと思います。 そうだったのですね。ということは別のコードで記述している Selection.Sortについても同じように考えられますので、 ExcelのVBAヘルプを参考にしてみます。 >xlAnd = 1 >の事ですので、1の値をxlAndに直接置き換えてやってみたら >どうでしょう? >つまり、 >----------------------------------------------------- >Set Selection = xlsSheet.Range("A1:D"+i) >Selection.AutoFilter '表をオートフィルタにかける >Call Selection.AutoFilter(2,"<>anzen/*",1,"<>mail/*") >----------------------------------------------------- >でやってみてください。 この通り、試したところ、できました!(*^^*) 本当に勉強になりました。m(__)m