Sub Expand_Entire_RowField()

Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim iFieldCount As Long
Dim iPosition As Long
   
    Set pt = ActiveSheet.PivotTables(1)
    iFieldCount = pt.RowFields.Count - 1
 
    For iPosition = 1 To iFieldCount
        For Each pf In pt.RowFields
            If pf.Position = iPosition Then
                For Each pi In pf.PivotItems
                    If pi.ShowDetail = False Then
                        pf.ShowDetail = True
                        Exit Sub
                    End If
                Next pi
            End If
        Next pf
    Next iPosition
End Sub