ActiveSheet.PivotTables("PivotTable1"). _
PivotFields("Header1").Subtotals = Array _
(False, False, False, False, False, False, _
False, False, False, False, False, False)

--
Regards,
Tom Ogilvy


"JulieD" wrote in message
...
Is there any way to supress the display of pivot table totals ... i have

External Date AAABA 3
AAABB 5
AAABC 7
External Date Total 15
Internal Date AAABA 2
Internal Date Total 2

and i don't want to see the total lines ... preferably i would like to
supress this either permanently (for the workbook) or via code.
Additionally, are there any good website (other references) which have vba
examples of creating / manipulating pivot tables.

Cheers
julieD