Or a UDF

Function CountBold(rg As Range) As Long
''originally posted by Ron Rosenfeld
Dim c As Range
For Each c In rg
CountBold = CountBold - c.Font.Bold
Next c
End Function

usage is: =CountBold(range)


Gord Dibben MS Excel MVP


On Thu, 15 Mar 2007 17:51:11 -0700, Gary''s Student
wrote:

see:

http://www.cpearson.com/excel/colors.htm