VBA 表の性別項目列より性別ごとのシートを作成・転記

Question

前提・実現したいこと

VBAで表より性別ごとのシートを作成したいです

発生している問題・エラーメッセージ

A1:P21の表があり、１行目は各項目、D列が性別の項目です。
この表から男と女のみの別シートをおのおの作成し、
全項目転記したいです。

エラーメッセージ
実行時エラー1004
.AutoFilter field:=4, criterial:="男"
この行で発生します。

Sub 問題改()

Worksheets("sheet1").Name = "全体 "
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "男"

With Worksheets(1).Range("A1:P21")
        .AutoFilter field:=4, criterial:="男"
        .Copy
End With

With Worksheets(2).Range("A1")
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteAll
End With
        
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "女"

 With Worksheets(1).Range("A1:P21")
        .AutoFilter field:=4, criterial:="女"
        .Copy
End With

With Worksheets(2).Range("A1")
       .PasteSpecial xlPasteColumnWidths
       .PasteSpecial xlPasteAll
End With
        

End Sub

VBA学習して間もないため、的はずれなことを言っているかもしれませんが
宜しくお願いいたします。

Answer 1

criterial
ではなく
criteria1
ということで、

「criteria」の次が、小文字のエルではなくて、数字の いち の書き間違い、ということはないでしょうか？
（女性の方のコードも）

Comments

[QueCho]

1でした！
些細なミスでした！ありがとうございます！