Tengo problemas para definir el rango para aplicar una función en Microsoft Excel

Como estas María Aurelia, que pena contigo la demora pero estuve muy ocupado en el trabajo esta semana, te cuento que la segunda parte de la pregunta no la he podido resolver, la primera ya y la solución es una función personalizada que te adjunto.
Debes darle la celda y el valor que deseas contar en todas las hojas del libro, pruébala y me cuentas:
Function ContarenHojas(celda As Range, valor) As Byte
If celda.Cells.Count = 1 Then
For Each ws In Worksheets
If ws.Range(celda.Address).Value = valor And _
ws.Range(celda.Address).Value <> "" Then
contador = contador + 1
End If
Next ws
Contar0enHojas = contador
End If
End Function

¡Hola Cesar!
Primero mis disculpas por cambiarle el nombre.
Segundo agracederle la ayuda.
Tercero que no sé mucho y no logro hacerla funcionar, le explico:
Tengo el Excel 2000.
He abierto un libro nuevo de tres hojas, para probar.
En la celda A5 he puesto 10, en la segunda 9, en la hoja 3 en A5 10.
He pinchado en una hoja sobre el nombre con el botón derecho y he ido al código.
He insertado un módulo y he pegado la función en "General".
He ido a una celda cualquiera C5, he puesto un igual y le he dado a FUNCIÓN.
He seleccionado en "definidas por usuario" ContarenHojas.
Le he dado celda igual a A5 y valor 10.
Yo esperaba que me devolviese 2, pero siempre devuelve "0".
Lo he intentado de varias maneras y siempre devuelve 0.
Creo que me equivoco al introducir el código en el programa, tal vez tenga que insertar procedimiento, función en (Vb).
En fin que no sé en que fallo.
A ver que opinas.
Aurelia