Clear cells based on their interior color

[Downes51]

Hello

I'm trying to use this code;

'Zeroise yellow cells
Range("C8").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

For Each cell In Selection
If ActiveCell.Interior.Color = "FFFF00" Then
cell.Clear
End If
Next

But it's not working for me. The colour used is the standard bright yellow from the highlight section of the Home menu.

Any ideas?

John

 

[Fluff]

Try

For Each cell In Selection
   If cell.Interior.Color = vbYellow Then cell.Clear
Next