Macro Adjustment to prevent complete deletion

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