цикл для счета

[сергей4]

помогите написать цикл для макроса:
есть макрос

Sub TestKolDigit ()
Dim c As Range, s As String
Dim Cnt As Integer, i As Integer
s = ""
For Each c In Selection
If TypeName(c.Value) = "Double" Then
s = s + Trim(CStr(c.Value))
End If
Next

Cnt = 0
For i = 0 To 9
If InStr(s, CStr(i)) > 0 Then Cnt = Cnt + 1
Next i
MsgBox "Разных цифр в числовых ячейках : " & Str(Cnt)
End Sub

считает кол-во цифр в строке.
как сделать для него цикл,чтобы он считал для следующеей(может быть 50-100строк и
значение записывал рядом в столбце
пример строка:12 14 16 22 25 - 5 (цифр)
спасибо

[motorway]

Помогу написать такой макрос за 35 р. Аська 561986872

[xNut]

200 рублей
обращайтесь

[Serge_Bliznykov]

сергей4, а что ж Вы мой макрос цитируете,
а ко мне сразу не обратились... Тогда я, может быть, и помог бы Вам...

p.s. смотрите не переплатите - макрос переделать несложно.. а ещё лучше из него сделать функцию и её задействовать где надо и как надо!