Помогите с созданием функции плиз

[Sergmodern]

Но у меня проблема с несоответствием типов выводится в самой функции HowOdd,а не в AllOdd.
Вот здесь:
Function HowOdd(r As Range) As Long
Dim cell
Dim how As Long
how = 0
For Each cell In r
======> If AllOdd(cell.Value) Then how = how + 1
Next
HowOdd = how
End Function

[IgorGO]

уважаемый, Sergmodern,
читаю первый пост (формулировка задачи):

Нужно написать функцию которая бы для диапазона,передаваемого её в качестве параметра находила бы количество чисел,состоящих только из нечетных цифр

Поэтому:
1. в начале и была написана такая функция, которая в заданном диапазоне определяла количество чисел состоящих только из нечетных цифр. согласен, я самостоятельно решил, что в диапазоне находятся только числа, хотя об этом явно ничего не сказано
2. поэтому, смотрим пост #20, функция была переписана. пользуйтесь ею на здоровье. она сейчас не только числа проверит, а проверит китайские иероглифы и не поперхнется.
3. зачем вы мне снова приводите текст старой процедуры. я уже обьяснил для корректной работы той функции в диапазоне должны быть только числа. "37Слонов" - это не число, это строка. та функция такого не прожует. в новой редакции эти проблемы отсутствуют. "37Слонов" новая редакция функции (пост #20) не защитает как правильное число, потому что это не число вообще.
4. замените код функции в вашем файле кодом из поста #20, начиная с Function AllOdd... и заканчивая End Function и наслаждайтесь жизнью...

удачи!

[Sergmodern]

Вот,теперь точно все!!!Ура,до меня долго доходило просто,спасибо еще раз.