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