Keep Pivot Field source name (followed by a blank)

ForEachPF_PFAddDefaultName.bas

Sub AddDefaultName()

Dim Wks As Worksheet
Dim PT As PivotTable
Dim PF As PivotField
Dim Title As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each Wks In ActiveWorkbook.Worksheets
    For Each PT In Wks.PivotTables
        
        On Error Resume Next
        For Each PF In PT.DataFields
                Title = PF.SourceName & " "
                PF.Caption = Title
        Next PF
    Next PT      
Next Wks
End Sub