Pivot Table Will Not Filter A Single Character Item

I am coding in excel 2007 vba to create a pivot table based on data on the tab. Although my code is more complicated than the code below, I believe I have narrowed my problem down to the fact that whenever I attempt to filter a single character value I encounter a Run-time error '1004': Unable to get the PivotItems property of the PivotField class.

As an example I ran the following code which worked:

Please Login or Register  to view this content.

'this works

However, when filtering for "J" I encounter the run-time error '1004':

Please Login or Register  to view this content.

'this does not work

Welcome to the forum, SndGenRX7,

Your thread didnt have code tags, which makes your code difficult to read.

I will do it for you this time, ensure you comply with the forum rules in future. Thanks.