Hi Mark

I read your post incorrectly. This removes the values of those cells
which are yellow in Column A. Change the column to suit.

Marcus

Sub DeleteYellow()

Dim Lw As Long
Application.ScreenUpdating = False
Lw = Range("A" & Rows.Count).End(xlUp).Row

For i = Lw To 2 Step -1
If Range("A" & i).Interior.ColorIndex = 6 Then
Range("A" & i).Value = ""
End If
Next i

End Sub