software

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!
JohnHere's a quick macro. Back up your data first

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

www.mvps.org/dmcritchie/excel/getstarted.htmsub 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 subquot;John Walkerquot; wrote:

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

Worked. Thanks!!!

quot;Duke Careyquot; wrote:

gt; Here's a quick macro. Back up your data first
gt;
gt; For information on installing the code see
gt; Getting Started with Macros and User Defined Functions
gt;
gt; www.mvps.org/dmcritchie/excel/getstarted.htm
gt;
gt;
gt; sub DeleteRegular
gt; dim rng as range
gt; dim cc as range
gt;
gt; set rng = activesheet.usedrange
gt; for each cc in rng
gt; if Not cc.Font.Bold Then cc.clearcontents
gt; next
gt;
gt; end sub
gt;
gt;
gt; quot;John Walkerquot; wrote:
gt;
gt; gt; Hi,
gt; gt;
gt; gt; Using Excel 2003 I have a worksheet where some of the cells are bolded text
gt; gt; and the rest are un-bolded text. The text in every un-bolded cell needs to
gt; gt; be deleted but there's so many that it takes a very long time to do it
gt; gt; manually. Is there a way to automate this process?
gt; gt;
gt; gt; Thanks!
gt; gt; John
gt; gt;