Pivot Select Problem

[Igwiz]

Hi all,
I have a pivottable like this


Class Code %ofColumn SumofMV
----- ----
Fruit Apple 10 100
Pear 10 100
Banana 40 400
Veggie Broccoli 30 300
Courgette 10 100

I have written some code with a pivotselect command that reads:

ActiveSheet.PivotTables("PT-Food Table&quot.PivotSelect _
"Class[Fruit]Code[ALL]", xlDataandLabel

and was hoping it return all the fruit data including the Labels. But unfortunately, this only seems to select the data. When I break the code and have a look at the table, the data is blue and copied but the labels are grey. Any ideas?

Many thanks,

IG