Paul,

You could add a UDF like so

'-----------------------------------------------------------------
Function IsBold(rng As Range)
'-----------------------------------------------------------------
If rng.Areas.Count 1 Then
IsBold = CVErr(xlErrValue)
Exit Function
ElseIf rng.Cells.Count 1 Then
IsBold = CVErr(xlErrValue)
Exit Function
Else
IsBold = rng.Font.Bold
End If

End Function


and then use

=IF(IsBold(B2),B2,"")

but be aware that bold does not trigger the calculate event so if B2 is
changed, you formula will not update.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Paul" wrote in message
...
Hi,
I want to write a formula along the lines of:

=if( b2 is bold, b2, else "")

Any ideas would be welcome.

PS the Excel is 2002.
Thanks for looking

Paul