Font
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
|