Auto-delete Unbolded Cells
 

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

Auto-delete Unbolded Cells
 

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


"John Walker" wrote:

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

Auto-delete Unbolded Cells
 

Worked. Thanks!!!

"Duke Carey" wrote:

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


"John Walker" wrote:

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