Font

[David]

Hi I am trying to check if the value in a cell is in Bold font
I am writing this using V 2003, but will use it on V 2000

Thanks,
--
David

[Rowan]

Is this what you are after:

Sub chkBold()
Dim answr As Boolean
answr = ActiveCell.Font.Bold
If answr Then
MsgBox "Range " & ActiveCell.Address & " is bold"
Else
MsgBox "Range " & ActiveCell.Address & " is not bold"
End If
End Sub

Regards
Rowan

"David" wrote:

> Hi I am trying to check if the value in a cell is in Bold font
> I am writing this using V 2003, but will use it on V 2000
>
> Thanks,
> --
> David

[David]

Thanks Rowan
--
David


"Rowan" wrote:

> Is this what you are after:
>
> Sub chkBold()
> Dim answr As Boolean
> answr = ActiveCell.Font.Bold
> If answr Then
> MsgBox "Range " & ActiveCell.Address & " is bold"
> Else
> MsgBox "Range " & ActiveCell.Address & " is not bold"
> End If
> End Sub
>
> Regards
> Rowan
>
> "David" wrote:
>
> > Hi I am trying to check if the value in a cell is in Bold font
> > I am writing this using V 2003, but will use it on V 2000
> >
> > Thanks,
> > --
> > David