Untested:

Sub aj()
myCol = ActiveSheet.PivotTables(1).TableRange2.Columns.Cou nt
MsgBox myCol
End Sub

"ulfb" wrote in message
...
Hi
My pivot is dynamic, created with VB, and number of columns will vary.
I need this count in a variable for use in further processing.
Any assistance appreciated!
/ulf