Deleting Worksheets in a table

Sub deleteme()
    Dim sh As Worksheet
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
    For Each sh In Worksheets
        If sh.Name <> "DATA TO DELETE" And sh.Name <> "PURPLE" Then sh.Delete
    Next sh
      Application.ScreenUpdating = 1
     Application.DisplayAlerts = 1
End Sub

Thank you, for the reply however when I ran this against my sample file it worked but the main data that I am using differs massively from the sample (not about colours at all) so this code won't fit.

I understand that you have added <> "Data to Delete" so that it doesn't delete the worksheet that the data is contained in but in my live workbook there are about 70 worksheets I need the Macro to delete only items contained within the defined table.

I tried modifying your code to achieve this but I got back to the same issue that it deleted everything.

Really appreciate your help though, any further ideas?

Regards

R