VB Script to identfy pivot table headings

[RiaM]

Hi guys

I want to write a macro to automatically change the format of the rows containing pivot table headings to "wrap text". The problem I'm having is identfying these rows. The number of rows varies (depending on column and row headings present). Can anyone help?

Cheers
Ria

 

[Andrew Poulsom]

The PivotTable's RowRange property returns the range containg the row headings.

 

[RiaM]

Thanks, can you give me an example of how to write this?

Much appreciated
Ria

 

[Andrew Poulsom]

Sure:

ActiveSheet.PivotTables(1).RowRange.WrapText = True