For Each cell In Activesheet.UsedRange
If cell.Interior.ColorIndex = 6 Then
cell.ClearContents
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Paul H" wrote in message
...
Can a macro be written that would clear the contents from all yellow cells
in
a worksheet?