Reading multiple numbers in one cell

[Richard Daniels]

Hi

This will count all the occurances of a number in a given
cell

Function countNumbers(values As Range, NumberTOCount As
Integer) As Integer
Dim i As Integer, iResult As Integer
iResult = 0
For i = 1 To Len(values)
If Mid(values, i, 1) = NumberTOCount Then iResult
= iResult + 1
Next
countNumbers = iResult
End Function