Gents/Ladies,

What I am trying to get my head around is with this situation:

I am trying to create an automated function to expand the first 5 pivot items and copy it's respective descriptions and paste it in another sheet.

I have written the following codes but the problem is my pivot items are dynamic, they could change i.e. it may be called Alpha today , tomorrows data feed could be Bravo.

How can I modify it so that it could cater to any pivot items? Thanks in advance ! 

Range("E4").Select
    ActiveSheet.PivotTables("PivotTable3").PivotFields("ColumnA").PivotItems( _
        "Alpha").ShowDetail = True
    Range("E5").Select
    Selection.Copy
Sample2.xlsx