title: VBA Code to return pivot table cell's row, column, and page fields and items
body: <p>I'm trying to write some code that will return the row, column, and page fields and items after I've highlighted a cell in the values area of the pivot table.  For example, if I select a cell that contains a value of $1000, I'd like to the code to pull the row field and item (for example, the field would be Department and item would be Finance), column field and item (for example, the field would be Account and item would be Advertising) and page field and item (for example, the field would be Company and item would be XYZ, Inc.).</p>
  
  <p>This seems like it should be pretty straightforward, because when you hover over any cell in a pivot table, it will show you the drilldown information in the contextures box, however, I'm having a hard time manipulating the pivot table objects because there doesn't seem to be much written on them online or by microsoft.  </p>
  
  <p>It seems like the pivotline or pivotlines object might be what I'm looking for, but I can't figure out how to use it.</p>
  
  <p>I originally took this approach and it worked fine until I realized that a rowfields' index is not necessarily it's position in the row field, so I had to scrap this.</p>
  
  <pre><code>Sub ActualDetailDrill()
  'after sub is completed, make this sub called when a cell in a pivot table is double-clicked.
  
  Dim NumOfRowItems As Integer
  Dim NumOfColItems As Integer
  Dim NumOfPageFields As Integer
  Dim Field As PivotField
  Dim ActualDrillActiveCell As Range
  
  Set ActualDrillActiveCell = Sheets("ActualDrill SQL Build").Range("A1")
  NumOfRowItems = ActiveCell.PivotCell.RowItems.Count
  i = 1
  
  Do Until i &gt; NumOfRowItems
      ActualDrillActiveCell.Value = ActiveCell.PivotTable.RowFields(i).Name
      ActualDrillActiveCell.Offset(0, 1).Value =    ActiveCell.PivotCell.RowItems(i).Name
      ActualDrillActiveCell = ActualDrillActiveCell.Offset(1, 0)
      i = i + 1
  Loop
  
  End Sub
  </code></pre>
  
  <p>Any help would be very, very appreciated.  This is one of the last steps in a big project I'm working on that will be very helpful to the company I work for.</p>