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:
Dim rng As Range
Set rng = ActiveCell
.ShowDetail = True
Excel FAQ, Tips & Book List