Code to delete all but first sheet

[Briscoe]

The first sheet in my workbook is named Summary. I will have a varying number of sheets following the Summary (first sheet). I need to find a code that will delete all sheets except the Summary sheet. Thank you for your assistance.

 

[SkipVought]

Hi,

Use the sheets collection...

application.displayalerts = false
for each sh in sheets
  if sh.name<>&quot;Summary&quot; then sh.delete
next

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Briscoe]

Thank you for your help. I will use the code tomorrow. I understand where you are going with this. Thanks again!

 

[Briscoe]

It worked great. Thanks for your help..