Please help edit this code.

[rockyw]

I use this code to erase highlighted cells after a search. Is there a way to edit this that would put the original cell color back in,maybe looking at near by cell. Thanks

Sub Remove_Color()
 Application.FindFormat.Interior.Color = vbYellow
    Application.ReplaceFormat.Interior.ColorIndex = xlNone
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub

 

[JLGWhiz]

You can copy a cell with the fill color you want, then pastespecial xlPasteFormats to get the color in the cell. But there is no way to recover an original color that has been previously changed and then deleted.