. فقط کافیه شما اسمهایی را که می خواید توی اون آرایه ذخیره کنید و بعد این تابعو فراخوانی کنید.
Private Function GetCountOfName(strNames() As String, strKeyName As String) As Long
Dim i As Integer
Dim iUpperIndex As Integer
Dim lCounter As Long
iUpperIndex = UBound(strNames)
For i = 0 To iUpperIndex
If Trim(strNames(i)) = Trim(strKeyName) Then
lCounter = lCounter + 1
End If
Next i
GetCountOfName = lCounter
End Function
