Excelマクロの自動フィルタリングと行の削除

Question

以下のコードは動作していますが、エラーが発生しています。

コーディングは別のワークシートを選択し、列を自動フィルタリングして行を削除します。

ラインがトラブルを抱えて.AutoFilter 1、である "Noいいえ"

実行時エラー '1004'：範囲CLASのオートフィルタメソッドが失敗しました。

助けてもらえますか？

Private Sub Project() 
Worksheets("YesYes").Select 
With ActiveSheet 
.AutoFilterMode = False 
With Range("y1", Range("y" & Rows.Count).End(xlUp)) 
    .AutoFilter 1, "*NoNo*" 
    On Error Resume Next 
    .Offset(1).SpecialCells(12).EntireRow.Delete 
End With 
.AutoFilterMode = False 
End With 
End Sub 

Answer 1

ワークシートを必ず「アクティブ化」する必要はありません。代わりに：

Worksheets("YesYes").Select 
With ActiveSheet 

これを行います。SelectかActivateを使用して時間の

Worksheets("YesYes").Activate 
With ActiveSheet 

Answer 2

99％は必要ありません。

With Worksheets("YesYes") 

をし、使用の下にネスト：

代わりにあなたのケースでの使用には、完全修飾されたオブジェクトを使用

With .Range("y1", .Range("y" & .Rows.Count).End(xlUp)) 

をそして、あなたのコードの残りの部分を追加します。