delete worksheets based on color

Sub xi()
  Dim wks As Worksheet
  
  Application.DisplayAlerts = False
  
  For Each wks In Worksheets
    If Worksheets.Count = 1 Then Exit For
    If wks.Tab.Color = vbRed Then wks.Delete
  Next wks
End Sub