Auto-delete Unbolded Cells

[Guest]

Hi,

Using Excel 2003 I have a worksheet where some of the cells are bolded text
and the rest are un-bolded text. The text in every un-bolded cell needs to
be deleted but there's so many that it takes a very long time to do it
manually. Is there a way to automate this process?

Thanks!
John

 

[Guest]

Here's a quick macro. Back up your data first

For information on installing the code see
Getting Started with Macros and User Defined Functions

http://www.mvps.org/dmcritchie/excel/getstarted.htm


sub DeleteRegular
dim rng as range
dim cc as range

set rng = activesheet.usedrange
for each cc in rng
if Not cc.Font.Bold Then cc.clearcontents
next

end sub

 

[Guest]

Worked. Thanks!!!

Here's a quick macro. Back up your data first

For information on installing the code see
Getting Started with Macros and User Defined Functions

http://www.mvps.org/dmcritchie/excel/getstarted.htm


sub DeleteRegular
dim rng as range
dim cc as range

set rng = activesheet.usedrange
for each cc in rng
if Not cc.Font.Bold Then cc.clearcontents
next

end sub