Try this utility:

http://www.contextures.com/xlPivotPlay01.html


Regards,
Ryan--

--
RyGuy


" wrote:

hi,

I need a macro to resize the column of the **current** pivot table.
All the code sample I have found suppose that you already have the
name of the pivot table to apply any modification.

Is there a way to find the current pivot table from the active cell ?



Here is the code I need to modify:

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect
"", _
xlDataAndLabel
Selection.ColumnWidth = 9


Thank you for your help

François