Hi Sebastien,

"sebastienm" wrote in message ...

Function IsIncluded(PItem As PivotItem) As Boolean
Dim pi As PivotItem
On Error Resume Next
Set pi = PItem.Parent.VisibleItems(PItem.Name)
IsIncluded = (Err.Number = 0)
End Function

That's really cool and thanks for wrapping it nicely up in a function
for me.
I would not have thought of that approach at all.


2. WorksheetPivotTable_Change
I have xl2000 and this event does not exists, so i guess you have either
xlXP or xl2003. That is it's hard to tell for me.

Thanks for that too. I confirmed with the urls below. So I use
Worksheet_Calculate

and use something like

if val(application.version)=10 then
...
end if

to provide activation for this or that version.

http://msdn.microsoft.com/library/de...ableUpdate.asp

http://msdn.microsoft.com/library/de...ableUpdate.asp

http://support.microsoft.com/?kbid=291294

http://support.microsoft.com/default...b;EN-US;213220

http://support.microsoft.com/default...b;EN-US;161761