counting cells - strikethrough text

this UDF

Function IsStriked(Rng As Range) As Boolean
IsStriked = Rng.Font.Strikethrough
End Function

inserted in a standard module
will return true or false for a single cell
us as normal function
i.e.
=IsStriked(A1)
prhaps you can start with that

Unfortunately, I am not familiar with VBA. I have created macros etc. but thats the extent of my current knowledge. I need to follow the steps to understand why I'm entering the data. Is there a basic VBA tutorial I can educate myself with on line?

Thanks again!

Martha

heres a quick walk through
http://www.contextures.com/xlvba01.html
once in module
you wont have to run it tho
if you use insert /functions scroll down to user defined and you will find it in there