here's a link to an old post that discussed this issue

http://groups.google.com/group/micro...b571acf6b34517

================================================== ========
Newsgroups: microsoft.public.excel.programming
From: John Green
Date: 1998/12/23
Subject: Function to count bold cells

Try the following:

Public Function CountBold(myRange As Range) As Long
Dim c As Range, count As Long


For Each c In myRange
If c.Font.Bold = True Then
count = count + 1
End If
Next c
CountBold = count
End Function
========================================

i don't know if they ever got it to work, though; they didn't post a
final code
:)
susan


On Jun 27, 9:03 am, Akash wrote:
Hi,

I have data in Column D:BG

Mostly Cell have Strike Through Effect & Bold as font style.

How can we count those cells which are having strike Through Effect in
it.
How can we count those cells which are having Bold Font Style in It.

Awaiting for your reply.

Thanks

Akash Maheshwari