Filter a pivot table by list in a range

I need some help with some poetry. I want a macro that will filter a pivot table based on items listed in a range in another worksheet. Here is what I have so far:

Please Login or Register  to view this content.

The line that begins with "If WorksheetFunction..." seems awkward. That line is supposed to emulate a VLookup function which, if it evaluates to "#N/A", causes the PivotItem to be hidden. I either need to make this line work or find a completely different approach.

Thanks


Moderator Edit:

Welcome to the forum, MikeWard100.

Please notice that code tags have been added to your post. The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at the top of the page and read Rule #3.
Thanks.