Excel VBA Macro to Delete Sheets Based on Their Tab Color

Excel VBA Macro to Delete Sheets Based on Their Tab Color
The following Macro will Delete the Sheets having Red[255] Color
Sub DelTabColor()

For Each ws In ThisWorkbook.Worksheets
ws.Activate
If ws.Tab.Color = 255 Then
ws.Delete
End If
Next ws

End Sub

Thanks,Tamatam