Exclude Contents From List :

[snb]

I posted an amendment earlier.

Another approach:

Sub M_snb()
    [A1:A1000] = [if(A1:A1000=B1,"",if(A1:A1000=B2,"",if(A1:A1000=B3,"",A1:A1000)))]
    Columns(1).SpecialCells(4).Delete
End Sub

EDIT NOTE FROM RICK ROTHSTEIN
-------------------------------------
Sorry, but I accidentally edited (instead of replying) to your message. I think I put it back the way you had it, but if not, I apologize.