What I want to do is for it to look if it finds the text in BOLD then it is
true if the text is not in Bold then is false

Hi
not sure if this is what you want. Probably not.

Sub tester()
If ActiveCell.Font.Bold = True Then
MsgBox "Cell text is Bold"
Else
MsgBox "Cell text is not Bold"
End If
End Sub

macro tests if active cell is bold or not.
regards
Paul
On Jun 24, 3:12*pm, victorio0704
<victorio0...@discussions.microsoft.com> wrote:
> What I want to do is for it to look if it finds the text *in BOLD then it is
> true if the text is not in Bold then is false

The macro is ok but I need to apply it on a excel cell not in a program; how
do i put it in a cell

"(E-Mail Removed)" wrote:

> Hi
> not sure if this is what you want. Probably not.
>
> Sub tester()
> If ActiveCell.Font.Bold = True Then
> MsgBox "Cell text is Bold"
> Else
> MsgBox "Cell text is not Bold"
> End If
> End Sub
>
> macro tests if active cell is bold or not.
> regards
> Paul
> On Jun 24, 3:12 pm, victorio0704
> <victorio0...@discussions.microsoft.com> wrote:
> > What I want to do is for it to look if it finds the text in BOLD then it is
> > true if the text is not in Bold then is false
>
>

Function IsBold(Cell)
IsBold = Cell.Font.Bold
End Function

Note: a change of font format will not trigger a re-calculation.


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 12:36:09 -0700, victorio0704
<(E-Mail Removed)> wrote:

>The macro is ok but I need to apply it on a excel cell not in a program; how
>do i put it in a cell
>
>"(E-Mail Removed)" wrote:
>
>> Hi
>> not sure if this is what you want. Probably not.
>>
>> Sub tester()
>> If ActiveCell.Font.Bold = True Then
>> MsgBox "Cell text is Bold"
>> Else
>> MsgBox "Cell text is not Bold"
>> End If
>> End Sub
>>
>> macro tests if active cell is bold or not.
>> regards
>> Paul
>> On Jun 24, 3:12 pm, victorio0704
>> <victorio0...@discussions.microsoft.com> wrote:
>> > What I want to do is for it to look if it finds the text in BOLD then it is
>> > true if the text is not in Bold then is false
>>
>>

Hi,

I have the same problem too.

At the moment I have these cells (2 rows and 5 columns):

A B C
D E
Bangladesh (Bangladesh Taka)* TRUE Bangladesh
Chittagong (Agrabad, St. Martin, 108 7,380 FALSE Sonargaon)
Peninsula) TRUE Peninsula)

* A1 is bold

My D column evaluates =EXACT(A1,"") such that for every new country, in this
case Bangladesh, if D1 is true E1 will copy the name of the new country.

the problem arises in the third line: Since I have to copy all the countries
in this database, some lines take more than one line space such in this case
and when I use my formula E3 gets the name of A3. Yet, this is a flaw I am
trying to fix testing for bold in the cell A3. I am using
IsBold(A3,A3.Font.Bold) but it does not work.

Any suggestions?

Thanks a lot