Na, de ez a kódon belül hol? Mert az, OK, hogy nem lista esetén a "<>valami" az működik, de itt akárhová teszem be a tagadást, hibát jelez a vba:

CriteriaRange:=<>Sheets("del").Range("A1:A40")

CriteriaRange<>Sheets("del").Range("A1:A40")

CriteriaRange:<>Sheets("del").Range("A1:A40")

stb.