Exclude values and delete remaining values

Hi I'm trying to set up a macro that allows me to exclude up 10 different values and then delete all other cells. This is what I have but it will only allow two different values.

Please Login or Register  to view this content.

This code is only a small part within a much larger macro. If needed I'm happy to attached the whole lot.

Cheers BJ5352

Perhaps adopt an approach along the lines of:

Please Login or Register  to view this content.

modify sheet name as per own requirements (set as Sheet1 in the above)

vExceptions should hold those values that are to be kept.

the above should be pretty quick to run.