Подсчет количества числовых значений

[Amelie_L]

Мне необходимо посчитать количество числовых значение в ячейки в определенном диапазоне. Все работает, но проблемма в том что у меня в ячейке может быть перечисление (1,2,3) и если цифр двое (1,2), то программа видит их как число а если больше то не замечает. Как сделать так что б такие перечисления (1,2,3 и больше) программа тоже считала как число?

[SAS888]

Можно, например, так:

Dim cell As Range, i As Long
For Each cell In Selection
    If Val(cell) > 0 Then i = i + 1
Next
MsgBox i

Вместо Selection подставьте требуемый диапазон.

[Amelie_L]

Так и сделала. Спасибо)