title: Delete row if cells equal a set of values
body: <p>I created a macro to in order to generate a daily report. The portion of the macro that finds a value in column AN and deletes the entire row (code edited to delete rows starting from the last used row), works well. 
  The following example deletes all the rows that <strong>do not</strong> contain the value "CAT","BAT", or "DOG in column AN.</p>
  
  <pre><code>'False screen updating
    Application.ScreenUpdating = False
  'deleting all other types other than CAT from "samples" tab (excluding the header row, row 1)
    Sheets("sample").Select
    Lastrow = Cells(Rows.Count, "AN").End(xlUp).Row
  'Deleting rows from bottom up
      For i = Lastrow To 2 Step -1
          If Range("AN" &amp; i).Value &lt;&gt; "CAT" And _
             Range("AN" &amp; i).Value &lt;&gt; "BAT" And _
             Range("AN" &amp; i).Value &lt;&gt; "DOG" Then
               Rows(i).EntireRow.Delete
          End If
      Next i
  </code></pre>
  
  <p>However, would like to create another Sub that deletes all the rows that <strong>do</strong> contain a specific set of values.
  I tried <strong>replacing &lt;></strong> with <strong>=</strong> and <strong>==</strong>, however neither worked and no rows were deleted</p>