[table="width: 500"]
[tr]
[td]Sub DeleteRowsContainingGrayCells()
Application.ScreenUpdating = False
Application.FindFormat.Clear
Application.FindFormat.Interior.Color = RGB(192, 192, 192)
With Columns("E")
With Intersect(.Cells, ActiveSheet.UsedRange)
.Value = .Value
End With
.Cells.Replace "*", "#N/A", SearchFormat:=True, ReplaceFormat:=False
On Error Resume Next
.SpecialCells(xlConstants, xlErrors).EntireRow.Delete
.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
End With
Application.FindFormat.Clear
Application.ScreenUpdating = True
End Sub[/td]
[/tr]
[/table]