troubleshooting Question

Macro Adjustment to prevent complete deletion

Avatar of Bright01
Bright01Flag for United States of America asked on
Microsoft Excel
2 Comments1 Solution44 ViewsLast Modified:
EE Pros,

I have a great WS that a number of EE Pros have helped me out with.  It now works incredibly well.  However, I can see a potential problem as I add additional Tabs or integrate this WS into a larger WB with existing Tabs.

The macro for deleting all tabs except the original uses a bit of code that may delete ALL TABs other then the original.  So instead of deleting only the "spawned" tabs (i.e. Priority_Map1, Priority_Map(2), etc. etc., I think it would auto. delete ALL TABS except the Priority_Map Tab.  Can you add a little code that will only delete tabs that have "Priority_Map" with an extension?

Thank you,

B.

Here's the code:

Sub Deletesheet()
Application.EnableEvents = False
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
Application.DisplayAlerts = False
Select Case sht.Name
        Case "Priority_Map"
            'Do Nothing
        Case Else
            sht.Delete
    End Select
Next
Application.DisplayAlerts = True
  Application.EnableEvents = True
End Sub
ASKER CERTIFIED SOLUTION
Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 2 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 2 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004