Automatically Delete Pivot Table with Macro?

[nbaj2k]

I have a macro where I create a pivot table on a new sheet, then want t
just take the text values of it without the drop down list. What I en
up doing is selecting the current region then copying and pasting i
onto a new sheet, only pasting the values. At the end of the Macro
want to delete the sheet with the Pivot Table on it that I'm not using
Even with a Macro, it still prompts me and makes me click the Delet
Button. It says "Data may exist in the sheet(s) selected for deletion
To permanently delete the data, press Delete".

Is there any way around this so I don't have to click it? I'm makin
this for someone, and it does not make sense for them to hit the delet
button everytime. Either that or if I could make the pivot table an
somehow automatically convert it to text values. I don't want a pivo
table to be seen.

Any thoughts or ideas would be great!

~

 

[Guest]

To prevent the warning messages, set DisplayAlerts to False. Delete the
sheet, then set DisplayAlerts back to True, as follows:

Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True

If you would rather convert the pivottable to text, that's easy, too.
1. Select a cell in the pivottable.
2. Select the CurrentRegion.
3. Copy & paste in place as values.

Hope this helps,

Hutch