Maxi

This should solve your problem, strValString is your string of numbers
("1,2,3,4")

Function FindFreq(strValString As String)

Dim iFreq As Integer
Dim iCount As Integer

For i = 1 To 5

For x = 65 To 71

For Each v In Split(strValString, ",")

If Range(Chr(x) & i).Text = v Then
iCount = iCount + 1
End If

Next
Next

If iCount 2 Then
iFreq = iFreq + 1
End If

iCount = 0

Next

Debug.Print iFreq


End Function

Paul