VBA to Delete Sheet Pivot

[yukioh]

Hi All Friend & Expert,

I would like to have VBA to Delete All sheet, except sheet " MAIN " & Sheet " CRETERIA "
in this sample file, i have insert pivot table in sheet2 and sheet3
then need VBA to Delete all sheet.


Thank you in advance

[adyteo]

Please Login or Register  to view this content.

[yukioh]

Hi adyteo,

I have try your code but appear like this:
Untitled.jpg

[adyteo]

It may be because of the Excel version.
What you can do is click on Macro Recorder and then delete a sheet. Stop the Macro Recorder, press Alt-F11 and then check to see the code for deleting the sheet. Copy that code into my code and run again.

[yukioh]

it still the same, can not delete
how to do?

[yukioh]

please help me

[adyteo]

Because you have hidden sheets, you get that error. What this code does now is that if a sheet is hidden, it is not deleted, it only deletes the visible sheets.

Please Login or Register  to view this content.

[yukioh]

Thank you so much , now it works