Excel宏自动筛选和删除行

Question

I am trying to get the coding below working but getting errors.

Coding selects another worksheet, then autofilter a column and delete row.

Line having trouble is .AutoFilter 1, " NoNo "

Run-time error '1004': AutoFilter method of Range clas failed.

Can I please get some assistance.

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

Selecting does not necessarily "Activate" the worksheet. Instead of:

Worksheets("YesYes").Select
With ActiveSheet

Do this:

Worksheets("YesYes").Activate
With ActiveSheet

Answer 2

99% of the times using Select or Activate is not necessary.

Instead use fully qualified objects, in your case use:

With Worksheets("YesYes")

And nested below use:

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

And then add the rest of your code.