Uso de la función en Excel

Hola,

Tengo un problema c.. pero no consigo encontrar qué pasa...
Tengo una función ESTFERIE que deseo usar pero parece no reconocerse.
La puse en un módulo de mi libro (en las declaraciones, y incluso la puse en el libro para probar).
Cuando escribo =ESTFERIE(B4) con B4 conteniendo una fecha, me sale un error #NOM?

Aquí está la función

Public Function ESTFERIE(d As Date) As Boolean
Dim annee As Integer
Dim paques As Date
annee = Year(d)

' Algoritmo de cálculo de Pascua
Dim a, b, c, d_p, e, f, g, h, i, k, l, m, n, p As Integer
a = annee Mod 19
b = Int(annee / 100)
c = annee Mod 100
d_p = Int(b / 4)
e = b Mod 4
f = Int((b + 8) / 25)
g = Int((b - f + 1) / 3)
h = (19 * a + b - d_p - g + 15) Mod 30
i = Int(c / 4)
k = c Mod 4
l = (32 + 2 * e + 2 * i - h - k) Mod 7
m = Int((a + 11 * h + 22 * l) / 451)
n = Int((h + l - 7 * m + 114) / 31)
p = (h + l - 7 * m + 114) Mod 31

paques = DateSerial(annee, n, p + 1)

' Verificación de días festivos
Select Case d
Case DateSerial(annee, 1, 1), DateSerial(annee, 5, 1), DateSerial(annee, 5, 8), _
DateSerial(annee, 7, 14), DateSerial(annee, 8, 15), DateSerial(annee, 11, 1), _
DateSerial(annee, 11, 11), DateSerial(annee, 12, 25), _
paques + 1, paques + 39, paques + 50
ESTFERIE = True
Case Else
ESTFERIE = False
End Select
End Function

Merci de m’enlever la peau de saucisson que j’ai devant les yeux...

A+