delete worksheets based on color

FWIW:

Sub xi603y()
Dim i As Long, y
With Application
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
    .ScreenUpdating = False
End With
ReDim y(2 To Sheets.Count)
For i = UBound(y) To LBound(y) Step -1
    If Sheets(i).Tab.ColorIndex = 3 Then Sheets(i).Delete
Next i
With Application
    .Calculation = xlCalculationAutomatic
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub