returning pivottable object from a range object

[Grant]

Hi there,

Is there anyway to return a pivottable object from a
range object?

Thanks,
Grant.

 

[Tom Ogilvy]

assume rng is the rng object

rng.PivotTable.name

from help:
Returns a PivotTable object that represents the PivotTable containing the
upper-left corner of the specified range. Read-only.

or you can try something along the lines of :

for each pvt in rng.Parent.PivotTables
if not Intersect(rng,pvt.TableRange2) is nothing then
msgbox pvt.Name & " found "
exit for
end if
Next

 

[Grant]

Awesome! Thanks very much.

-----Original Message-----
assume rng is the rng object

rng.PivotTable.name

from help:
Returns a PivotTable object that represents the PivotTable containing the
upper-left corner of the specified range. Read-only.

or you can try something along the lines of :

for each pvt in rng.Parent.PivotTables
if not Intersect(rng,pvt.TableRange2) is nothing then
msgbox pvt.Name & " found "
exit for
end if
Next

--
Regards,
Tom Ogilvy





.