I've been asked to apply some formatting to a pivot table: bold and
italics for subtotals, and underline headers. After studying Debra
Dalgleish's site I learned how to apply bold italic font to the
subtotals, comme ca:

Sub Pivot_Table_Format()
Dim PT As PivotTable
Dim PF As PivotField

On Error Resume Next
For Each PT In ActiveSheet.PivotTables
'Bold, italic subtotals
For Each PF In PT.PivotFields
PT.PivotSelect PF.Name & "[All;Total]", xlDataAndLabel, True
Selection.Font.Italic = True
Selection.Font.Bold = True
Next PF
Next PT

Range("a1").Select

End Sub

How do I find and apply formatting to the headers?

Thanks