Help with Pivot VBA Function.

[pedie]

I need help with VBA to return in msgbox to display the type of Pivot Version and Style and View [xl 2003/xl2007] it currently has if possible....

 

[p45cal]

From 2010, though it probably isn't very different for earlier versions of excel:
If you do something like this and set a break on the third line, you will be able to see many properties of the pivot table in the Locals pane, though it's not all inclusive:

Sub blah8()
Set zzz = ActiveSheet.PivotTables(1)
With zzz
Debug.Print .Version
Debug.Print .TableStyle
Debug.Print .TableStyle2.Name
Debug.Print .TableStyle2.NameLocal
End With
End Sub

 

[pedie]

p45cal, i show your post yesterday but didnt get time to check it...
This is perfect in 07 [andi i use offfice 07 version]...this is what i want...

Thanks for helping....

From 2010, though it probably isn't very different for earlier versions of excel:

If you do something like this and set a break on the third line, you will be able to see many properties of the pivot table in the Locals pane, though it's not all inclusive:

Sub blah8()[/FONT]
[FONT=Courier New]Set zzz = ActiveSheet.PivotTables(1)[/FONT]
[FONT=Courier New]With zzz[/FONT]
[FONT=Courier New]Debug.Print .Version[/FONT]
[FONT=Courier New]Debug.Print .TableStyle[/FONT]
[FONT=Courier New]Debug.Print .TableStyle2.Name[/FONT]
[FONT=Courier New]Debug.Print .TableStyle2.NameLocal[/FONT]
[FONT=Courier New]End With[/FONT]
[FONT=Courier New]End Sub[/FONT]
[FONT=Courier New]