Pivot table - show detail

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

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

--
Regards,
Tom Ogilvy


"Wolfie" <dmileswolfe@yahoo.com> wrote in message
news:eIXHXHfUGHA.4864@TK2MSFTNGP12.phx.gbl...
> 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
>
>

Thanks Tom!

"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:uWuRCRgUGHA.1444@TK2MSFTNGP11.phx.gbl...
> Dim pvtitm as PivotItem
> for each pvtitm in
> activesheet.PivotTables(1).PivotFields("Division").PivotItems
> pvtitm.ShowDetail = True
> Next
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Wolfie" <dmileswolfe@yahoo.com> wrote in message
> news:eIXHXHfUGHA.4864@TK2MSFTNGP12.phx.gbl...
>> 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
>>
>>
>
>