this will count bold format in cells: modify to create a module for
strikethrough

(Rng.Font.strikethrough = True)

Place formula below in cell:

=CountBold(D1:BG1000)

To insert code:

Alt + f11

Alt+I

select Module

Copy/paste code

Function CountBold(InRange As Range) As Long
Dim Rng As Range
Application.Volatile True
For Each Rng In InRange.Cells
CountyBold = CountBold - (Rng.Font.Bold = True)
Next Rng

End Function

"Akash Maheshwari" 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