Sub deleteColoredRows()
Const Gray = 15
Range("A1").EntireRow.Select
Do While ActiveCell.Value <> ""
if Selection.Interior.ColorIndex = Gray
EntireRow.Delete
End If
Loop
End Sub
assuming I have the right color index number, how do I correct the if/then
line
so I can delete all rows that are gray? there is an error on the delete and
if/then lines
thanks,
Bookmarks