In Range("B2:B150") any number of cells can have their font formatted
to bold.The cells may be in succession(contiguous) or may not be in
succession(noncontiguous).

I *need a macro* that will loop through the above range, and define a
new range called myRange which is made of all the cells in
Range("B2:B200") whose font are set to bold.
(i.e) myRange=Range(__,__,__,__,__,...)
Where __,__,... are the cells whose fonts are bold.

Please I will need a macro and any help would be appreciated!
Thanks.
Jay Dean

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!