Dim cell as Range
for each cell in selection
if not cell.font.bold then
cell.clear
end if
Next

--
Regards,
Tom Ogilvy

"John Jones" wrote in message
...
I need help with this problem.

A range in a worksheet contains one single digit integer in each cell.

I want to clear the contents of all the cells; except those where the
single
digit integers are in bold.