Didn't mean to be vague about the code: here's an example of code to
look in each cell, and un-shade a cell that is currently yellow:

Sub Find_Yellow()
Dim rCell As Range
For Each rCell In ActiveSheet.UsedRange
If rCell.Interior.ColorIndex = 6 Then rCell.Interior.ColorIndex = 0
Next rCell
End Sub