Change Field On Pivot Table Using VBA Input Box
 

Does anyone have a VBA code that will change a field on a pivot table using
an input box?

Ex: The Row field of the pivot table is currently 'Date'. I want an input
box stating, 'Please enter the name of the field you want to change the Row
field to.' I would enter 'Week'. The Row field would change from 'Date' to
'Week'.

Does anyone have or know where I can get this code? I've look throughout the
internet and was unsuccessful in finding one.

Thanks in advance.
--
Cue