Many thanks to Bob Kilmer for his great suggestion in the last question on a similar vein
Does anyone know how to manipulate this "replace" formula to work on cells with a set internal.colorindex value ?

Column("A:A").Selec
Selection.Replace What:="", Replacement:="", LookAt:=xlWhole,
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True,
ReplaceFormat:=Fals

How do you weave in a "Interior.ColorIndex = 5" as the search criteria ?? Basically, on the same vein as before, if a cell in column "A" has a fill color of "5", for example, then set the value of the ID to "null" - later that whole row can be deleted using "Columns("A:A").SpecialCells(xlCellTypeBlanks).Ent ireRow.Delete Shift:=xlUp

If this is possible, again very curious as would be a neat method. Can't find any decent reference online for this
TI

Mike