Drill-Down Pivot Macro

[Jay]

Is there a manual way to drill down to data in a pivot table other
than double clicking? I'm trying to write a macro that drills down to
the data under the active cell, but using the double click would
change the location of the active cell. Any ideas???

Thanks in advance.....

 

[Debra Dalgleish]

Another way to do it manually is to choose
PivotTable> Group and Show Detail>Show Detail
but that will also leave the detail sheet activated.

Or, via code:

Sub ActiveCellDrillDown()
Dim rng As Range
Set rng = ActiveCell

With rng
.ShowDetail = True
.Parent.Activate
.Activate
End With

End Sub