VBA to Create a Pivot with Unique Name

[dan.zrust]

Hi Guys,
I need to be able to create a pivot anytime I hit CTRL + SHIFT + P into an active cell. I recorded the procedure, changed the destination to "ActiveCell" but now the problem is that the pivot name is static.

I need the code to create the pivot under a name which does not exist in the workbook yet...

The code I have now:

Please Login or Register  to view this content.

This will create a pivot with name PivotTable20, however when I hit CTRL SHIFT P next time, I will not be able to create the pivot, because the name is already used...

Thoughts?

[romperstomper]

You can leave out the TableName argument and Excel will automatically assign the next available name to it.

[Kaper]

If you do not delete PT's you could try:

Please Login or Register  to view this content.

PS. Edit your post using code tags to comply with http://www.excelforum.com/forum-rule...rum-rules.html

Edit: skiping TableName is by far smarter than mine proposition

[dan.zrust]

One more thing guys.

Lets I want the new pivots to have always one pivot field in filter preset. How do I do that? Referencing to active pivot?

I tried this:

Please Login or Register  to view this content.

But thats not working.

Daniel

[romperstomper]

Like this:

Please Login or Register  to view this content.