Sub ClearCellsColour33()
application.screenupdating = false
dim ws as worksheet
for each ws in activeworkbook.worksheets
dim cell as range
for each cell in ws.Range("F25:AA100").cells
if cell.interior.colorindex = 33 then cell.value = vbnullstring
next cell
next ws
application.screenupdating = true
end sub