eliminar filas por color

hola, fredy !

... una hoja donde la columna A tiene unas celdas de color rojo ditribuidas
... necesito... eliminar... las filas donde la celda de la columna A se encuentre de color rojo [...]

el siguiente ejemplo elimina las filas de la columna 'A' ->de la hoja activa<- que tengan cualquire color de trama...
[podrias utilizar un colorindex = 3 ... SI estas 'seguro' que no existen tramas combinadas -solo rojo 'directo'-] ;)
en un modulo de codigo 'normal' ==Sub Eliminar_Entramados()
Dim Celda As Range, Eliminar As Range
Application.ScreenUpdating = False
For Each Celda In ActiveSheet.UsedRange.Resize(, 1)
If Celda.Interior.ColorIndex <> xlColorIndexNone Then
If Eliminar Is Nothing Then Set Eliminar = Celda
Set Eliminar = Union(Eliminar, Celda)
End If
Next
If Not Eliminar Is Nothing Then Eliminar.EntireRow.Delete
Set Eliminar = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.