sub DeleteRed()
dim cell as range
for each cell in activesheet.usedrange
if cell.value<"" then
if cell.font.color = vbred then
cell.value =""
end if
end if
next
end sub

"Anita" wrote:

We have a spreadsheet which has cells with numbers in red text and cells with
numbers in black text. We would like to be able to delete all the red text,
if that's possible? I don't know any programming myself but any help
appreciated. Version 2007.

Thanks