Try the following macro :

Sub test()
Application.CommandBars("PivotTable Field List").Enabled = True
End Sub

HTH
Daniel

When I create a pivot table, the field list does not appear. I click the
icon on the pivot table toolbar and nothing happens. I just suddenly stopped
appearing.

Any suggestions?