ISO: Function to count cells depending on contents

[Shadal]

Could someone help me create a function please?

I would like a cell to give me a count based on the contents of a column.

I have the following column. If the cell contains "N" it should add 1 to the count. If the cell contains a name, it should add 0.5 to the count. If the cell is strikethrough it should be ignored.

Thanks in advance!

 

[JoeMo]

This counts cells in the range R that contain only "N", or other text w/o strikethrough. It ignores blank cells and cells with an error, if any.
NOTE: values in red font have strikethrough which doesn't seem to be captured by XL2BB.

Book1
	A	B	C
1	Split		11
2	Megan
3	N
4
5	#N/A
6	N
7	N
8	N
9	N
10	N
11	N
12	Kevin
13	N
14	N
15	N
16	N
17	N
18	Blake
Sheet1

Cell Formulas
Range	Formula
C1	C1	=countem(A2:A18)
A5	A5	=NA()

Function Countem(R As Range) As Double
Dim c As Range
For Each c In R
    If Not IsEmpty(c) Then
        If Not c.Font.Strikethrough And Not IsError(c.Value) Then
            If c.Value = "N" Then
                Countem = Countem + 1
            Else
                Countem = Countem + 0.5
            End If
        End If
    End If
Next c
End Function