Hi xi603
This should assist...
Option Explicit

Sub DeleteRedWorkSheetTabs()
Dim ws As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each ws In Worksheets
    If ws.Tab.Color = vbRed Then
        ws.Delete
    End If
Next ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub