UDFs Won't Run from Add-In

[Philip1957]

Greetings,

This is my first attempt at a UDF. I have the following saved to MyFunctions.xlam and the add-in is active in all of my workbooks.

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long

xcolor = criteria.Interior.ColorIndex

For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
    Next datax
End Function

The function shows up when I start typing in a cell ...

... but it gives me a #NAME error and I don't understand why.

What am I doing wrong?

Any assistance would be greatly appreciated.

Thank you,
~ Phil

 

[KOKOSEK]

I suppose that issue is with reference of ranges.
Did you try:

=CountCcolor(Sheet1!B4:B103, Sheet1!E2)

 

[Philip1957]

Thanks for the response.
Being more specific with the range didn't help. I still get #NAME?

 

[Fluff]

Do you have any #name errors in B4:B103?

 

[Philip1957]

Do you have any #name errors in B4:B103?

Thanks for the reply.
No. The range has no formulas and is formatted as short date.

 

[Fluff]

Do the other UDF's in the add-in work?

 

[Domenic]

Are macros enabled?

Is the module named the same name as the function?

 

[Philip1957]

Do the other UDF's in the add-in work?

This is my first attempt at a UDF so there are no other functions in the add-in.

 

[Philip1957]

Are macros enabled?

Is the module named the same name as the function?

Yes it is.

 

[Fluff]

If you mean that the function & module share the same name, then change the name of the module.