clear cells unless contents are in bold
 

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.

clear cells unless contents are in bold
 

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.