Problem with Excel Advanced Filters via Excel VBA - Not working

I have a sheet that holds all the Data in 28 columns "DataSheet", I have the Criteria on another Sheet where I want the results "ResultSheet"

I want to exclude the Projects starting with A, the area starting with Y or R and the Team starting with U or P and leave everything else. So conclude Projects or area or area or team or team

The Criteria which is named as "Criteria" used is
filter.png

The code is

Please Login or Register  to view this content.

All it does though is copy across the whole DataSheet, it works with only one criteria in any column, and is picking up the Criteria on all rows that have content. Tried putting them all on the same row and it didn't work (gave no results), tried doing it manually and it didn't work. Putting the data as Projects (row 4), Area (both on row 5), team (both on row 6) doesn't work.

Really stuck. Any help gratefully received, thanks in advance.

Try, on the Criteria sheet:

Project Area Area Ref_Ind Ref_Ind
<>A* <>Y* <>R* <>U* <>P*


with code:

Please Login or Register  to view this content.

Or, if the ranges are named:

Please Login or Register  to view this content.

You're welcome.