There is no way to do this from the built-in functions. You could use a UDF
such as that below. The function is not volatile so will not update unless
all functions on the worksheet are re-calculated.

Function CountBoldCells(rRange As Range) As Long
Dim lCount As Long, myCell As Range
lCount = 0
For Each myCell In rRange
If myCell.Font.Bold = True Then
lCount = lCount + 1
End If
Next myCell
CountBoldCells = lCount
End Function

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"CheekyChappy" wrote in message
...
Hello Office Experts. Does anyone know how to count the number of cells
containing embolldened text in a column? I'm using Excel 2003.

Many thanks.