Macro to Delete Rows with Fill Color

Hi:

You can use the filter property of excel if do not want to loop through

Sub Test()
    Range("A1").AutoFilter
    ActiveSheet.Range("$A$1:$A$1").AutoFilter Field:=1, Criteria1:=RGB(255, 255 _
    , 0), Operator:=xlFilterCellColor
    ActiveSheet.Range("$A$1:$A$16").Offset(1, 0).SpecialCells _
    (xlCellTypeVisible).EntireRow.Delete
End Sub

Note: You will have to tweak the RGB and Range to suit your needs.

Thanks