Thanks Tom!

"Tom Ogilvy" wrote in message
...
Dim pvtitm as PivotItem
for each pvtitm in
activesheet.PivotTables(1).PivotFields("Division") .PivotItems
pvtitm.ShowDetail = True
Next

--
Regards,
Tom Ogilvy


"Wolfie" wrote in message
...
I'm trying to create a procedure to show the detail in a pivot table.
Using
the macro recorder, I get:

Range("B7").Select
Selection.ShowDetail = True

However, I'd prefer to reference the pivot field (field name = Division)
directly.

TIA,

Dave