I have finally figured out the answer to this so just thought I would answer my own question if anone else needed to know.

ActiveSheet.PivotTables("Put Pivot table name & Sheet Name Here").DisplayImmediateItems = True
Cheers

Jim